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I.  INTRODUCTION 


A.  BACKGROUND 

In  past  years.  Naval  Shipyards  operated  in  a  'zero  gain/zero  loss'  mode.  That 
orientation  is  rapidly  changing.  The  thrust  of  this  change  is  that  Defense  Department 
managers  must  be  concerned  with  costs.  In  keeping  with  this  spirit, 
NAVASEASYSCOM  commissioned  a  study  of  US  Naval  Shipyards  to  identify 
functional  areas  needing  improvement  The  contracted  analysts  investigated  all  areas 
of  the  shipyards  and  found  numerous  problems.  In  the  MIS  systems  area  it  was  found 
that  the  central  system  was  behind  technology  and  producing  poor  management 
reports. 

Budget  development  and  control  was  also  found  to  be  lacking.  In  the  past  there 
was  little  incentive  to  be  concerned  with  budgets,  since  cost  was  not  a  critical  concern. 
But  budget  preparation  is  particularly  important  in  maintaining  control  of  costs.  There 
will  be  little  improvement  unless  a  budget  and  expense  monitoring  capability  is 
provided  for  the  shipyard  managers.  In  light  of  these  concerns  and  developments^  this 
study  undertook  to  develop  and  investigate  the  feasibility  of  a  Decision  Support 
System  (DSS)  that  would  assist  managers  at  the  shipyard  with  budget  preparation  and 
control  Additionally,  the  specific  methods  of  cost  classification  at  Naval  Shipyards  are 
discussed.  These  classifications  are  by  Cost  Center,  Cost  Function,  and  Cost  Class, 
and  are  the  vehicles  by  which  costs  are  portrayed. 

Within  the  Management  Engineering  and  Information  OfTice  (MEIO),  at  the 
Mare  Island  Naval  Shipyard,  budget  development  and  control  is  performed  by  the 
department  budget  analyst  with  inputs  from  the  department  managers.  Departmental 
budgets  are  presently  developed  annually.  The  primary  budget  process  inputs  originate 
from  the  Comptroller  with  additional  inputs  from  within  MEIO,  although  these  are  not 
formal  inputs. 

Budget  analysts  are  also  responsible  for  providing  responses  to  ad  hoc  queries 
from  the  shipyard  and  department  managers.  Those  queries  can  come  in  the  form  of 
requests  for  cost  accrual  analysis  to  investigations  of  variances  the  managers  feel  may 
be  potential  problem  areas. 
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The  Shipyard  Automated  Budget  Reporting  System  (SABRS)  is  a  new  addition 
to  the  shipyard's  accounting  systems.  It  will  allow  in  depth  cost  analysis,  and 
assistance  in  the  preparation  of  budgets.  Presently,  not  all  of  its  features  are 
operational. 

B.  OBJECTIVES 

The  primary  objective  of  this  thesis  is  to  develop  an  initial  pilot  project,  a 
prototype  DSS,  that  will  initially  address  the  concerns  of  budget  preparation,  control 
and  variance  analysis  within  the  Mare  Island  Naval  Shipyard.  In  addition,  it  is 
intended  that  this  DSS  will  be  the  first  step  in  a  larger  eflort  to  provide  managers 
access  to  an  easy  to  use,  graphically  oriented,  and  organization-wide  system.  With 
these  objectives  in  mind,  the  final  objective  will  be  to  assess  the  applicability  of  larger 
DSS  efiforts  within  the  shipyard. 

A  byproduct  of  the  project  will  be  to  provide  understanding  and  insights  into  the 
use  of  programs  that  are  on-hand  at  the  shipyard  and  incorporated  into  the  DSS.  We 
feel  that,  in  the  past,  most  organizations  have  had  a  tendency  to  go  for  the  salesman  s 
hype,  rather  than  exhausting  the  possible  capabilities  of  present  systems  first.  The 
hope  is  that  the  users  will  at  least  be  given  the  tools  with  this  DSS  to  further  explore 
on-hand  programs. 

C.  RESEARCH  QUESTIONS 

The  most  important  question  to  answer  in  this  research  is,  what  is  the  best 
method  to  integrate  the  available  tools  to  produce  a  coordinated,  specific  DSS?  The 
insights  gained  from  this  effort  will  identify  the  best  way  to  develop  future  DSS's. 

Secondly,  we  attempted  to  investigate  the  most  efficient  methodology  of  system 
development.  To  do  this  we  followed  the  iterative  approach  identified  by  Keen,  Scott 
Morton  [Ref.  1]  and  Sprague  and  Carlson  [Ref.  2].  Also,  we  elected  to  use  the 
'structured  techniques'  of  Yourdon  [Ref.  3]  and  De  Marco  [Ref.  4]  where  applicable. 
The  structured  approach  is  more  rigorous  in  its  requirement  for  documentation.  This 
will  be  prove  to  be  beneficial  for  the  users  in  enhancing  their  understanding,  and  for 
later  developers  conducting  maintenance  and  expansion. 

D.  SCOPE  AND  LIMITATIONS 

We  approached  this  project  as  a  prototype,  an  experiment  to  determine  the 
applicability  of  a  DSS  to  shipyard-wide  decision  support  for  management.  The  intent 


was  to  learn  from  this  experiment,  refine  the  results,  and  subsequently  expand  the 
system.  In  efTect,  this  project  was  a  feasibility  study. 

In  order  to  meet  the  requirements  of  resources  and  time,  the  scope  of  this  project 
was  limited  to  the  budget  analysis  and  control  requirements  of  MEIO.  This  fact  does 
not  diminish  the  information  to  be  learned. 

The  DSS  was  implemented  on  two  systems:  a  PRIME  9755  minicomputer  which 
is  linked  in  a  shipyard-wide  Local  Network  and  a  standalone  IBM  microcomputer 
configuration.  The  requirement  to  use  the  PRIME  was  a  limitation  because  it  required 
us  to  learn  a  new  system  and  language.  It  was  also  an  opportunity  since  any  useful 
systems  developed  could  easily  be  used  by  any  other  department  on  the  Local 
Network.  Additionally,  as  mentioned  earlier,  the  minicomputer  implementation  made 
use  of  programs  presently  available  at  the  shipyard.  The  resource  constraints  and  the 
experimental  nature  of  this  project  precluded  purchasing  software  that  would  meet  the 
needs  of  shipyard  managers. 

The  portions  of  the  project  written  by  the  authors  were  done  in  PRIME'S 
Command  Processor  Language  (CPL)  for  the  minicomputer  and  C  for  the 
microcomputer.  They  allowed  the  use  of  structured  programming  techniques  and 
constructs,  which  we  felt  were  essential  to  producing  code  with  minimal  errors.  Both 
of  these  helped  to  support  the  rapid  development  approach  required  with  the  iterative 
prototyping  methodology. 

E.  LITERATURE  REVIEW  AND  METHODOLOGY 

1.  Literature  Review 

In  an  attempt  to  clarify  the  term  DSS,  a  literature  review  was  conducted  to 
provide  a  general  definition  based  upon  those  suggested  by  the  key  investigators  in  this 
area  of  research.  DSS,  as  opposed  to  MIS,  attempts  to  work  in  the  vague  arena  of 
unstructured  problems.  To  highlight  the  differences,  the  'structured  techniques’  were 
compared  to  the  usual  DSS  development  approach.  In  certain  ways,  we  noted  some 
parallels  and  similarities.  An  important  parallel  is  seen  in  the  logical  first  step  of  each. 
The  structured  approach  looks  at  problem  definition,  the  DSS  approach  to  the 
identification  of  a  key  decision.  Those  starting  points  provide  the  scope  within  which 
the  project  developments  take  place. 

The  authors  we  reviewed  stressed  the  importance  of  organizational  approaches 
to  DSS  development  strategies.  Integrating  DSS  to  the  organization  requires  careful 
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planning.  The  technology  levels,  the  appropriate  tactical  option,  and  a  coherent 
'action  plan'  for  DSS  must  be  carefully  selected.  The  hygiene  issues  facing  a  DSS 
development  are  critically  important  to  the  success  of  the  system.  These  environmental 
issues  require  close  consideration  by  any  would-be  developer. 

In  conducting  the  analysis  for  a  DSS.  we  highlight  one  proposed  by  Sprague 
and  Carlson  [Ref.  2].  It  is  an  alternative  pattern  of  analysis  which  is  different  than  the 
usual  systems  analysis  methods,  in  that  it  is  process  independent  and  not  data  driven. 

2.  Methodology 

The  development  effort  of  this  thesis  was  a  blend  of  structured  and  DSS 
approaches,  using  each  where  it  was  most  logical  This  provided  us  with  a  very  flexible 
methodology.  The  cornerstone  was  'iterative  development,'  which  was  the  cement 
that  united  the  two  disparate  methodologies  we  incorporated. 

Our  goal  was  to  have  the  flexibility  of  the  DSS  approach,  but  retain  the 
rigorous  documentation  standards  of  the  structured  techniques.  Therefore,  we  used  the 
structured  techniques  within  the  overall  framework  of  the  DSS  approach. 

We  also  identified  the  need  to  include  data  base  development  requirements 
within  our  methodology.  The  data  base  is  important  to  the  operation  of  DSS  systems, 
so  those  issues  should  not  be  ignored. 

F.  SUMMARY  OF  FINDINGS 

The  methodology  we  selected  provided  us  with  a  flexible,  but  rigorous 
development  environment.  This  would  essentially  equate  to  the  prototyping  approach 
mentioned  by  Yourdon  [Ref.  3].  For  DSS,  the  slack  produced  by  this  methodology  is 
essential  because  of  the  vague  nature  of  unstructured  problems. 

We  also  found  that  the  structured  techniques  that  are  actively  employed  within 
the  general  DSS  framework  were  absolutely  necessary  to  ensure  that  sufficient 
documentation  was  developed  with  the  prototype  system  to  assist  future  development 
efforts.  In  fact,  the  techniques  fit  very  well  with  the  DSS  approaches  we  identified. 
Both  sides  of  the  coin  are  needed.  The  blending  rests  clearly  with  the  iterative  nature 
of  DSS  approaches.  Without  it,  the  reconciliation  between  the  dissimilar  approaches 
could  not  be  bridged. 

G.  ORGANIZATION  OF  STUDY 

Chapter  Two  presents  the  background  on  the  Mare  Island  Naval  Shipyard  and 
its  present  systems.  The  reader  is  given  an  appreciation  of  the  problems  facing  the 
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shipyard  managers  and  how  our  project  is  an  attempt  to  deal  with  one  area:  budget 
preparation,  control,  and  variance  analysis. 

Under  the  framework  identified  by  the  background,  the  issues  concerning  DSS 
development  in  the  current  literature  are  discussed  in  Chapter  Three.  This  presents  the 
current  understanding  of  the  role  of  Decision  Support  Systems,  and  provides  a  specific 
definition. 

Refining  the  general  issues  further,  Chapter  Four  presents  the  methodology  we 
followed  in  our  development  effort.  This  methodology  is  an  outgrowth  of  the  areas  of 
importance  identified  during  the  literature  review  and  the  background  study. 

Chapter  Five  presents  the  pilot  projects  which  we  developed,  defining  specific 
design  issues  we  faced.  Chapter  Six  develops  an  analysis  of  the  projects  presented  in 
Chapter  Five.  We  focus  on  lessons  learned  and  identify  key  areas  of  concern  for  future 
developers. 


II.  BACKGROUND 


A  THE  COOPERS  AND  LYBRAND  STUDY 

During  1985,  the  Coopers  and  Lybrand  accounting  firm  conducted  a 
management  analysis  of  all  US  Naval  Shipyards.  The  scope  of  the  analysis  consisted 
of  all  functional  areas  of  shipyard  operations  and  management. 

In  the  MIS  arena,  they  found  that  the  central  system  is  woefully  behind 
technology.  It  produces  reports  which  are  not  timely  and  are  marginally  useful. 
Additionally,  NAVSEASYSCOM  gave  tittle  direction  concerning  the  growth  and 
acquisition  of  the  hardware  and  software  components  of  computer  systems  for  the 
shipyards.  Consequently,  both  external  and  internal  incompatibility  resulted. 

Budget  development,  execution  and  control  were  also  found  to  be  lacking.  In  the 
past,  managers  had  little  incentive  to  keep  budgets  under  control  since  cost  was  not  a 
critical  management  concern.  The  present  budget  concerns  of  the  Congress  and  the 
American  people  have  resulted  in  the  need  for  all  government  agencies  and  activities  to 
take  a  closer  look  at  the  management  of  their  operations,  and  take  the  necessary 
actions  to  rectify  situations  where  resources  are  wasted. 

As  stated  in  the  Coopers  and  Lybrand  report  [Ref.  5:  p.  FIN-21): 

"The  (present)  budget  process  does  not  support  meaningful  variance  analysis. 
Several  factors  contribute  to  this  problem:" 

The  budget  is  perceived  bv  manv  shipyards  as  a  funding  tool  and  is  not 
effectively  used  as  a  planning'  and  control  tool. 


The  budget  loses  credibility  as  an  effective  management  tool  because  it  does  not 
adequately  account  for  the  impact  of  changes  in  demand.  It  is  not  capable  of 
effectively  supporting  analvses  of  spending,  and  volume  variances,  particularly  at 
the  department  of  responsibility  center  level. 

Specifically  associated  with  managing  costs  in  the  shipyards  was  the  lack  of 
sufficient  incentives  "for  departments  to  come  in  under  budget." 

Th$  budget  is  viewed  as  a  spending  limit,  not  a  spending  target. ..The  NIF  budget 
policy  manual  [Ref.  6]  even  states  that  the  budget  is  a  plan  of  the  activity  “to 
attain  a  cumulative  no  gain  no  loss  position  at  th”e  end  ot  the  budget  sear.  The 
manual  says  turther  that  the  established  overhead  rates  should  be'Jefeloped. ..so 
that  zero  balance  variance  between  actual  and  applied  overhead  is  acmeved  at 
year  end  to  avoid  the  requirement  of  distribution  thereof. 


This  attitude  encourages  department  managers  to  spend  to  their  budget  limits 
because  they  believe  that  Favorable  budget  variances  frequently  result  m  a 
reduction  in  subsequent  budget  allowances.  While  the  financial  svstems  are 
capable  of  isolating  Door  performance,  they  are  not  effective  at  identifying  and 
rewarding  good  performance.  The  manager  who  does  have  a  favorable  budget 
variance,  not  onfy  does  not  set  favorable  recognition,  but  may  also  fmd  himself 
with  reduced  funds  the  next  fiscal  penod 

Budgets  were  prepared  quarterly  or  annually  before  the  study  was  initiated.  The 
management  analysts  of  Coopers  and  Lybrand  were  concerned  by  this  practice.  They 
believed  monthly  budget  preparation  would  improve  the  quality  of  the  planning 
process  (Ref.  5:  p.  FIN-17-18]. 

'Departments  are  not  required  to  justify  projected  costs  in  sufficient  detail. 
Projected  costs  are  not  based  on  key  activity  indicators.'  [Ref.  5:  p.  FIN- 18]  Managers 
need  some  method  of  analyzing  various  costs  in  order  to  analyze  variances,  to  project 
future  budgets  and  to  defend  those  budget  projections.  They  need  performance 
measures  or  indicators  to  chart  their  current  status. 

The  study  also  reported  that  managers  were  not  generally  involved  in  the 
preparation  of  their  departments'  budgets.  'Since  these  managers  lack  a  sense  of 
ownership  for  the  budget,  it  loses  some  of  its  effectiveness  as  a  motivation  tool." 
[Ref.  5:  p.  FIN- 19] 

Budget  effectiveness  was  reduced  because  of  the  poor  quality  of  budget 
submissions.  Many  budgets  required  later  revision.  'In  addition,  shipyard 
management  emphasizes  total  departmental  control  points.  Little  emphasis  is  placed 
on  adherence  to  the  budget  on  a  line  item  basis.  For  example,  an  analysis  of  the  year 
end  actual  versus  budget  report  for  a  shop  in  one  shipyard  identified  by  the  study 
[Ref.  5:  p.  FIN-20]: 

1.  Six  line  items  with  expenses  up  to  S  107,000,  but  no  budgeted  amounts. 

2.  Twelve  items  with  ranges  of  favorable  budget  variances,  from  S3000  to 
S248.000. 

3.  Thirteen  line  items  with  unfavorable  budget  variances  from  S1000  to  S  142,000. 

Budget  variances  are  determined  by  comparing  budgeted  amounts  to  actual 

expenses.  If  the  actual  expense  is  less  than  the  budgeted  amount,  a  favorable  variance 
exists.  An  unfavorable  variance  occurs  if  the  actual  expense  is  greater  than  the 
budgeted  amount.  Unfavorable  variances  are  to  be  avoided. 


B.  COST  CLASSIFICATION 

Two  important  means  of  classifying  costs  are  by  Cost  Function  and  by  Cost 
Class.  Cost  functions  group  costs  into  functional  areas.  Each  Cost  Center,  which  is 
equivalent  to  a  department,  has  several  Cost  Functions  under  it,  depending  on  the 
nature  of  its  work.  For  example,  the  MEIO  is  Cost  Center  9110.  Under  its  control  are 
eight  Cost  Functions  designated  numerically  from  9112  to  9119.  Table  l  shows  the 
names  of  these  Cost  Functions. 


TABLE  1 

COST  FUNCTIONS 

9112 

Administration 

9113 

Administration 

9114 

Rental  and  Maintenance  of  ADP  Equipment 

9115 

Operations 

9116 

Control  and  Scheduling 

9117 

EDP  Operations 

9118 

Key  Entry  Operations 

9119 

NAVSEA  NSY  MIS  Program 

Each  expense  incurred  by  MEIO  falls  under  one  of  the  listed  Cost  Functions. 
The  sum  of  the  expenses  of  all  Cost  Functions  under  a  Cost  Center  is  the  amount 
expended  by  that  Cost  Center.  Cost  Functions  relate  to  Resource  Management 
System  functional/ subfunctional  categories  defined  inthe  Navy  Comptroller's  Manual 
[Ref.  7]. 

Cost  Class  is  another  way  expenses  are  classified.  A  Cost  Class  is  the 
identification  of  the  type  of  an  expense.  They  relate  to  elements  of  expense,  under  the 
RMS  system,  "which  tell  what  kind  of  resources  are  used  [Ref.  7]."  Each  Cost  Center 
has  certain  authorized  Cost  Classes.  MEIO,  for  example,  is  authorized  21  different 
Cost  Classes  under  which  it  may  spend.  Table  2  lists  the  authorized  Cost  Classes  for 
Cost  Center  9110. 
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TABLE  2 

COST  CLASS 

Supervision,  Graded 

03 

Non  Supervision,  Graded 

04 

Non  Supervision,  Ungraded 

10 

^  Lost  Time 

11 

Time  Allowed 

12 

Consumeable  Supplies 

19 

Coding  Rejects 

23 

Union  Activities 

28 

Alterations 

30 

Travel 

32 

Rent  and  Communications 

33 

Printing,  Reproduction,  and  Duplicating 

39 

Training,  Other 

43 

Depreciation  of  Purchased  Equipment 

54 

Shop,  General  Non  Labor 

68 

Acquisition  of  Minor  Property 

91 

ADP  Supervision 

92 

ADP  Analyst/ Programmer 

93 

ADP  Operations 

94 

ADP  Rent/ Communications 

95 

ADP  Maintenance 

96 

ADP  Contractual  Services 

97 

ADP  Consumeable  Supplies  and  Installation 

98 

ADP  Minor  Property 

99 

ADP  Training 

All  expenses  are  thus  classified  under  both  Cost  Function  and  Cost  Class.  Only 
certain  Cost  Classes  are  authorized  under  a  given  Cost  Function  however.  A  Cost 
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Class  can  be  present  in  many  Cost  Centers,  unlike  Cost  Functions  which  are  related  to 
their  particular  Cost  Center  only.  Table  3  shows  the  authorized  Cost  Classes  for  the 
Cost  Functions  under  the  Cost  Center  9110. 


TABLE  3 

AUTHORIZED  COST  FUNCTIONS/COST  CLASSES 

Y  -  AUTHORIZED  N  -  NOT  AUTHORIZED 

Cost 

Class 

Cost 

Function 

9112 

9113 

9114 

9115  9116 

9117 

9118  9119 

02 

Y 

Y 

N 

Y 

Y 

Y 

Y  . 

Y 

03 

Y 

Y 

N 

Y 

Y 

Y 

Y 

Y 

04 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

11 

Y 

Y 

N 

Y 

Y 

Y 

Y 

Y 

12 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

23 

N 

Y 

N 

N 

N 

Y 

Y 

N 

28 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

30 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

32 

N 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

33 

Y 

N 

Y 

Y 

Y 

Y 

Y 

Y 

39 

Y 

Y 

N 

Y 

Y 

Y 

Y 

Y 

43 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

54 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

68 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

91 

Y 

Y 

N 

Y 

Y 

Y 

Y 

N 

92 

N 

Y 

N 

N 

N 

N 

N 

N 

93 

Y 

Y 

N 

Y 

Y 

Y 

Y 

N 

94 

N 

N 

Y 

N 

N 

N 

N 

N 

95 

N 

N 

Y 

N 

N 

Y 

N 

N 

96 

Y 

Y 

N 

N 

N 

Y 

N 

N 

97 

Y 

N 

N 

N 

N 

Y 

N 

N 

98 

Y 

N 

Y 

N 

N 

N 

N 

N 

99 

Y 

Y 

N 

N 

N 

Y 

N 

N 

C.  JHEcg|.ESENT  MEIO  BUDGET  CONTROL  AND  DEVELOPMENT 

As  pointed  out  by  Coopers  and  Lybrand,  the  department  manager  is  responsible 
for  his  department's  budget,  and  therefore  should  be  involved  in  the  budget 
development  process.  His  involvement  comes  in  the  form  of  monitoring  the 
development  process. 

The  budget  control  and  development  activity  within  MEIO  involves  two  key 
groups:  the  departmental  managers  and  budget  analyst.  In  most  cases  their  give  and 


;v. wiwuv  m/  muT ri i 


take  in  identifying  resources  required  develops  the  budget  over  time.  Various  managers 
submit  their  sections'  needs  and  the  budget  analyst  reconciles  those  with  direction  from 
top  department  management  and  the  Controller  department.  The  key  to  this  process  is 
"that  the  lines  of  budget  submission  and  approval  must  follow  the  lines  of 
organizational  responsibility."  [Ref.  7:  p.  C*4]  This  process  is  graphically  depicted  in 
the  structured  specification  in  Appendix  A. 

Departmental  budgets  are  prepared  annually  and  submitted  to  the  shipyard 
Comptroller.  They  are  developed  by  the  particular  department's  budget  analyst  with 
various  inputs  and  constraints  presented  from  within  the  department  and  without. 
Budget  request  inputs  and  clarifications  are  received  from  departmental  managers. 
Specific  MHIO  requirements  and  constraints  are  received  from  the  top  departmental 
management.  The  Comptroller's  office  submits  various  budget  constraints  to  all 
shipyard  departments.  These  include  dollar  ceilings  and  floors,  and  leave  hours  not  to 
exceed  14%  of  the  total  budget  for  labor. 

Initially,  when  we  were  studying  the  process  to  develop  the  descriptive  analysis, 
budget  input  reports  were  produced  and  distributed  by  the  Data  Processing  section  of 
MEIO.  These  reports  were  developed  from  information  submitted  by  the 
Comptroller  s  office.  With  the  advent  of  a  new  shipyard  accounting  system,  SABRS, 
the  majority  of  these  reports  were  consolidated  into  one,  and  now  originate  directly 
from  the  Comptroller  department.  At  the  present  time  the  report  is  printed  and 
distributed  manually;  however,  in  the  future  it  is  anticipated  that  it  will  be 
electronically  distributed  through  the  Prime  network. 

At  the  outset  of  our  analysis,  SABRS  was  still  in  the  coding  and  testing  stage  but 
past  the  projected  implementation  stage.  The  original  contractor  had  been  replaced 
and  the  learning  curve  for  the  new  programmers  delayed  the  implementation.  SABRS 
was  implemented  at  the  beginning  of  fiscal  year  1987,  which  was  in  the  middle  of  our 
system  development.  Consequently,  SABRS  is  the  information  generation  system  that 
we  shall  consider  throughout  this  discussion,  and  not  the  old  reports  system. 

After  the  budget  input  reports  are  received,  they  are  used  to  track  budget 
performance.  Performance  reports  compare  budgeted  to  actual  expense  by  Cost 
Function,  Cost  Class,  Cost  Function,' Cost  Class,  Cost  Center,  or  by  total  for  the 
shipyard.  These  reports  also  serve  as  the  basis  for  developing  reports  in  response  to 
departmental  managers'  queries.  These  queries  are  ad  hoc  in  the  sense  that  they  are 
not  formalized,  but  may  be  requested  when  managers  feel  a  need  to  monitor  a 
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particular  aspect  of  the  budget.  For  example,  prior  to  the  implementation  of  the 
SABRS  system,  the  shipyard  Commanding  Officer  requested  a  breakdown  of  costs  for 
each  department  by  Cost  Classes.  The  reports  used  at  that  time  did  not  have  the 
information  summarized  by  Cost  Class  for  each  department  and  the  computer  center 
did  not  have  the  time  to  handle  this  one  time  request.  Therefore,  the  information  had 
to  be  extracted  by  hand  from  the  existing  reports.  This  was  not  only  time  consuming 
for  the  budget  analysts,  but  also  demonstrates  the  state  of  the  current  computer 
system.  The  desired  data  was  on  the  computer  but  there  was  no  easy  way  to  extract  it 
electronically. 

Potential  problems  are  detected  by  either  the  managers  of  a  particular 
department  or  by  the  budget  analyst.  If  a  manager  finds  a  potential  problem  in  the 
performance  report,  he  will  contact  the  budget  analyst  who  will  research  the  problem. 
The  reason  causing  an  unfavorable  variance  can  be  determined,  and  the  manager  can 
decide  if  action  is  warranted  to  correct  the  problem.  Or  the  "problem"  may  be  the 
result  of  planned  expenses  and  not  a  real  problem  at  all. 

Likewise,  if  the  budget  analyst  detects  a  potential  problem,  she  will  alert  the 
appropriate  managers.  When  further  information  is  desired  for  clarification,  job  order 
information  that  is  associated  with  the  expense  may  b?  accessed.1  By  accessing  on-line 
job  order  information,  detailed  information  on  an  expense  can  be  obtained.  This 
ideally  will  clarify  any  questionable  variances. 

D.  SABRS 

SABRS  is  a  newly  implemented  accounting  system  with  some  interactive  capability.  It 
is  primarily  intended  to  be  used  by  the  shipyards  in  the  preparation  of  their  annual 
budgets  for  submission  to  NAVCOMPT.  It  is  an  on-line  system  with  several 
capabilities. 

SABRS  I  is  to  be  utilized  by  the  budget  officers  and  department  budget  analysts 
to  project  costs  using  prior  year's  actual  costs,  escalation,  and  acceleration  projection 
as  well  as  anticipated  workload.  The  budget  can  be  created  from  scratch,  from  existing 
information,  or  from  previous  budgets.  The  historical  data  base  is  invaluable  in 
analyzing  trends  and  making  budget  projections  based  on  those  trends.  This  historical 
data  base  will  be  limited  to  only  the  previous  year. 

1  All  work  done  at  the  shipvard  is  assigned  a  job  order  number.  A  job  order 
number  consists  of  the  Cost  Function  number.  Cost  Class  number,  and  a  four  digit 
number. 


This  interactive  system  will  allow  the  user  to  test  budget  proposals  and  conduct 
'what  if  analysis  of  various  budget  options.  Budget  detail  can  run  the  spectrum  from 
shipyard  total  budget,  to  Cost  Center,  Cost  Function  and  Cost  Class  levels.  Graphic 
display  of  the  resulting  analysis  is  not  available  with  the  system. 

Although  the  system  has  many  interactive  capabilities  for  the  various  users,  at 
present  it  is  only  used  to  create  budget  versus  actual  performance  reports  (SBR-22A 
and  SBR-22B).  Obviously,  the  complete  system  implementation  of  SABRS  I  will  be 
required  before  the  shipyard  managers  have  a  comprehensive  and  sophisticated  budget 
analysis  tool. 

SABRS  II  is  designed  to  allow  the  users  to  prepare  budget  exhibits  required  by 
NAVSEASYSCOM.  Although  it  will  provide  assistance  to  the  Comptroller's  office 
and  department  budget  analysts,  its  analysis  capabilities  for  the  average  user  are 
limited. 


III.  LITERATURE  REVIEW  AND  THEORETICAL  FRAMEWORK 
DSS  DEFINITION 

Many  books  and  articles  have  been  written  on  DSS.  The  subject  is  relatively 
new,  becoming  pan  of  the  Information  Systems  jargon  as  recently  as  the  mid  70's. 
The  exact  definition  of  what  can  be  classified  as  a  DSS  is  itself  a  gray  area. 

Peter  G.  W.  Keen  and  Michael  S.  Scott  Morton  [Ref.  1]  are  acknowledged  as 
the  major  authorities  on  DSS.  Their  work  was  one  of  the  first  major  writings  on  the 
subject  of  DSS  and  is  used  as  a  focal  point  for  most  subsequent  works.  They 
originated  the  now  standard  term  DSS.  Keen  and  Morton  [Ref.  1:  p.  15]  view  DSS  as 
part  of  the  natural  evolution  and  maturation  of  information  systems  and  management. 
Mature  MIS  systems  should  be  available  before  a  DSS  system  can  be  implemented 
with  success. 

A  DSS  has  been  characterized  as  an  interactive,  computer-based  system  that 
helps  decision  makers  utilize  data  and  models  to  solve  unstructured  problems 
[Ref.  2:  p.  4].  A  system  requires  three  capabilities  to  be  classified  as  a  DSS:  a  data 
base  management  system,  a  model  base  management  system,  and  a  dialog  management 
system  [Ref.  2:  p.  28].  MIS  deals  with  structured  tasks,  while  a  DSS  deals  with  semi- 
structured  or  unstructured  tasks.  This  divergence  from  what  is  considered  MIS  has 
caused  the  development  of  new  techniques  and  methodologies  for  the  development  of 
DSS.  These  techniques  often  are  not  new  to  the  MIS  community,  but  rather  have 
been  considered  improper  for  the  development  of  past  MIS. 


B.  DESIGN  AND  IMPLEMENTATION 

1.  Structured  Approach 

Structured  analysis  and  design  is  the  present  popular  and  successful  procedure 
for  the  development  of  MIS.  Structured  analysis  and  design  provide  a  checklist  for  the 
developer  to  insure  all  necessary  aspects  of  the  system  are  incorporated.  Although 
often  given  other  names,  the  following  steps  are  generally  associated  with  the 
structured  approach  [Ref.  8:  p.  17]: 

1.  Problem  definition 

2.  Feasibility  study 

3.  Analysis 

4.  System  design 
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5.  Detailed  design 

6.  Implementation 

7.  Maintenance 

Since  DSS  is  concerned  with  problems  that  are  classified  as  semi-structured  or 
unstructured,  it  seems  logical  that  a  structured  approach  may  not  be  the  best 
approach.  A  structured  approach  requires  that  each  step  be  methodically  followed  as 
they  are  listed.  The  output  for  one  step  serves  as  the  input  for  the  next  step  in  this 
top-down  approach.  Often  it  is  not  easy,  if  not  impossible,  for  an  unstructured  or 
semi-structured  task  to  be  fully  defined.  Therefore,  it  can  be  very  difficult  to  develop  a 
clear  design  flowing  from  step  to  step.  The  nature  of  unstructured  and  semi-structured 
task  definition  involves  backtracking  through  the  development  steps,  following  an  order 
which  is  not  consistent  with  a  top  down  approach.  A  structured  approach  may  indeed 
have  frequent  returns  to  earlier  steps,  but  the  sense  of  progression  from  step  to  step 
must  be  maintained  [Ref.  S:  p.  16].  This  progression  does  not  have  to  be  maintained  in 
DSS  development. 

2.  DSS  Approach 

Keen  and  Morton's  process  for  developing  a  DSS  is  not  a  cook  book 
methodology.  There  is  not  as  clear  cut  a  process  for  the  design  of  a  DSS,  although 
several  authors  note  common,  key  processes  that  must  be  accomplished  sometime 
within  the  development  cycle. 

The  main  distinction  between  the  current  trends  and  practices  in  the  MIS  field 
and  in  DSS  design  can  be  seen  in  the  concurrency  of  design  and  implementation. 
Design  and  implementation  are  inseparable  and  evolutionary  in  DSS  [Ref.  1:  p.  167]. 
This  is  a  common  thread  in  the  DSS  literature.  Design  and  implementation  are  not 
separate  phases  but  two  blended  iterative  steps. 

The  unstructured  nature  of  DSS  problems  can  result  in  vague  problem 
definitions.  This  vagueness  can  only  be  approached  through  the  flexibility  of  this 
iterative  DSS  methodology.  The  concurrency  of  design  and  implementation  act  as  a 
bridge  between  the  designer  and  the  user,  increasing  their  communication.  Short  as 
possible  cycles  of  design  and  implementation  allow  the  users  to  frequently  evaluate  the 
development  effort  and  increases  understanding  of  the  users'  needs. 

Two  other  important  authors  of  DSS  literature  who  built  on  the  ideas 
proposed  by  Keene  and  Scott  Morton  are  Ralph  H.  Sprague,  Jr.  and  Eric  D.  Carlson. 
Sprague  and  Carlson  [Ref.  2],  also  emphasized  the  need  for  an  iterative  design.  A  DSS 


must  "be  built  with  short,  rapid  feedback  from  users  to  ensure  that  development  is 
proceeding  correctly'’  [Ref.  2:  p.  15].  This  keeps  the  user  involved  and  aware  of  the 
progress,  making  change  easier  and  quicker.  The  stages  of  typical  system 
development,  analysis,  design,  construction,  and  implementation  must  be  'combined 
into  a  single  step  which  is  iteratively  repeated'  [Ref.  2:  p.15].  This  is  similar  to  the 
concept  expounded  by  Keene  and  Scott  Morton,  except  expanded  to  be  more  inclusive. 
Sprague  and  Carlson  not  only  included  design  and  implementation  in  their  iterative 
methodology,  but  also  analysis. 

3.  ProMaaa  Dcflnftfcm 

Focusing  the  Approach  structured  approach  commences  with  the  definition  of 
a  problem.  Although  Keen  and  Scott  Morton's  approach  is  diMimilar  to  a  structured 
approach,  it  does  have  a  logical  first  step:  the  identification  of  a  key  decision  [Ref.  1:  p. 
173].  A  key  decision,  once  identified,  becomes  the  focus  of  the  initial  DSS.  This 
narrows  the  scope  of  the  initial  implementation  and  allows  the  user  the  flexibility  to 
make  changes  after  he  sees  a  working  system  Any  changes  can  be  designed  and 
implemented  in  an  iterative  fashion. 

When  choosing  what  decision  to  implement,  the  probability  of  success  is 
always  increased  if  the  client  has  a  readily  identifiable  problem  or  need.  Normally  this 
results  in  a  user  who  is  an  excited  proponent  of  the  new  system  The  'anything  is 
better  than  what  I  have  now"  attitude  often  breeds  cooperative  clients  and  sometimes 
even  fanatics.  A  cooperative  and  committed  user  does  not  guarantee  a  successful 
project,  but  without  some  support  from  the  user,  the  project  is  doomed  to  fail.  The 
earlier  his  commitment  is  generated,  the  easier  the  development  will  be. 

4.  Strategic  DSS  Development 

Sprague  and  Carlson  expanded  on  the  concept  of  focusing  on  one  key  decision 
and  divided  DSS  into  three  technology  levels:  specific  DSS,  DSS  generators,  and  DSS 
tools.  The  level  that  actually  accomplishes  work  is  the  specific  DSS  level.  This  is  the 
final  product  that  serves  the  user's  needs.  Specific  DSS's  are  built  from  other  levels, 
either  from  generators  or  tools.  The  lowest  DSS  level  is  that  of  tools.  Tools  facilitate 
the  development  of  either  Specific  DSS  or  a  DSS  generator.  A  DSS  generator  is  a 
collection  of  tools  or  capabilities.  [Ref.  2:  pp.  10-12] 

When  developing  a  DSS  several  approaches  can  be  taken.  First,  tools  can  be 
developed  with  no  specific  DSS  in  mind.  These  tools  can  then  be  integrated  to  build  a 
DSS  generator.  The  generator  can  then  be  applied  to  several  different  specific  DSS  $ 
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as  applications  arise  and  are  implemented.  New  tools  can  be  added  to  give  the 
generator  more  power.  This  approach  is  expensive  and  tangible  results  are  slow  in 
developing.  Careful  planning  and  extensive  analysis  is  necessary  to  insure  the  proper 
tools  are  available  when  a  DSS  application  arises. 

The  other  approach  focuses  on  a  specific  DSS.  acquiring  the  tools  needed  to 
build  that  specific  DSS's.  These  tools  can  then  possibly  be  used  for  other  specific 
DSS’s  within  the  organization.  A  generator  is  then  created  indirectly  by  combining 
tools.  A  generator  does  not  evolve  until  several  specific  DSS's  are  developed.  Building 
a  specific  DSS  is  the  preferred  method  because  immediate  results  can  be  seen  quickly 
and  at  a  relatively  inexpensive  price.  Subsequent  specific  DSS  development  is  not  as 
simple  as  it  would  be  if  a  generator  already  existed. 

5.  Tactical  DSS  Development 

Depending  on  environmental  factors  (such  as  the  organizational  structure,  the 
tasks,  the  users,  and  the  builders)  three  different  tactical  options  are  recommended  by 
Sprague  and  Carlson  [Ref.  2:  p.  60]: 


consider  what  to  do  next 


generator 


relopment 


3.  The  complete  DSS.  Before  building  any  specific  DSS,  develop  a  full-service 
DSS  generator,  and  the  organizational  structure  for  managing  it. 

The  staged  development  is  recommended  because  it  is  the  most  balanced  approach  of 

the  three.  Results  can  be  seen  quickly  and  future  DSS  development  is  planned,  which 

is  usually  less  expensive  than  building  a  system  without  any  planning. 

6.  A  DSS  Action  Plan 

Planning  is  the  key  to  success  in  any  endeavor,  and  design  of  DSS  is  no 
exception.  Sprague  and  Carlson  [Ref.  2],  have  identified  four  phases  of  an  action  plan. 
These  phases  do  not  conflict  with  the  iterative,  simultaneous  design  and 
implementation  of  DSS.  Rather,  they  provide  a  framework  for  the  design  of  additional 
DSS.  The  four  phases  of  the  plan  are  [Ref.  2:  pp.  67-68]: 

1.  Preliminary  study  and  feasibility  assessment. 

2.  Development  of  the  DSS  environment. 

3.  Developing  the  initial  specific  DSS. 

4.  Developing  subsequent  specific  DSS. 
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The  preliminary  study  and  feasibility  assessment  are  the  same  as  in  the 
structured  methodology.  Once  a  problem  is  identified,  a  feasibility  study  is  needed.  In 
fact,  this  study  can  be  initiated  prior  to  the  knowledge  that  a  DSS  is  necessary  or 
desired,  in  response  to  a  particular  problem.  During  this  preliminary  study,  pilot 
projects  can  be  implemented  to  ascertain  DSS  needs.  These  pilot  projects  can  also  help 
find  the  project  for  the  first  specific  DSS. 

Phase  2  forms  the  DSS  environment.  A  minimal  set  of  tools  are  either 
developed  or  purchased  with  a  plan  for  creating  a  DSS  generator.  The  initial  specific 
DSS  design  and  implementation  can  then  begin.  The  specific  DSS  should  be  in  a 
highly  visible  area  that  has  observable  benefits.  Tools  can  be  updated  or  added  as 
necessary. 

In  the  next  phases  the  specific  DSS  is  designed  and  implemented  in  an 
iterative  methodology.  Upon  completion  of  the  initial  specific  DSS,  other  DSS's  can 
be  developed.  The  second  DSS  should  be  related  to  the  first.  For  example,  duplicating 
the  same  system  for  another  division  with  a  different  group  of  users  would  probably  be 
easier  and  yield  a  quicker  payofT  than  developing  an  unrelated  system  [Ref.  2:  p.  67]. 
In  practice  the  initial  DSS  does  not  have  to  be  completed  prior  to  the  start  of  phase  4. 

7.  ROMC 

Another  technique  Sprague  and  Carlson  introduced  was  the  ROMC  process 
[Ref.  2:  p.  96].  ROMC  is  a  process  independent  approach  for  identifying  the  necessary 
capabilities  of  a  specific  DSS  by  focusing  on  Representations,  Operations,  Memory 
aids,  and  Controls.  The  representations  help  to  conceptualize  and  communicate  the 
problem  or  decision  situation.  They  identify  what  the  user  actually  wants  to  see  as 
output  to  make  better  decisions.  Operations  allow  the  user  to  analyze  and  manipulate 
those  representations.  They  allow  the  user  to  integrate  the  representations  desired  into 
the  decision  maker's  style.  Memory  aids  assist  the  user  in  linking  the  representations 
and  operations  together.  A  data  base  acts  as  a  memory  aid  by  presenting  different 
views,  profiles,  libraries,  or  by  acting  as  a  trigger  that  reminds  the  user  that  certain 
operations  need  to  be  performed.  Control  mechanisms  handle  and  integrate  the  entire 
system.  Control  mechanisms  allow  the  decision  maker  the  use  of  the  system  in  a  way 
that  conforms  to  a  particular  user's  decision  style.  Menus,  training,  and  some 
operations  make  up  the  control  mechanisms  for  a  DSS. 


C  AREAS  OF  DESIGN 

The  design  must  also  cover  three  almost  separate  areas  [Ref.  1:  p.  181): 

1.  the  'user*  design,  defined  in  terms  of  the 

imperatives, 

2.  the  interface  or  driver  which  links  them,  and 

3.  the  data-base  management  design. 

Each  of  these  areas  must  be  addressed  in  the  design  phase. 

If  user  design,  the  data  base,  or  the  interface  is  ignored,  the  consequences  could 
cripple  further  DSS  development.  When  the  user's  needs  are  not  fully  addressed,  he 
will  not  use  the  system.  Neglecting  data  base  management  results  in  the  necessary 
information  not  being  available  when  needed.  If  the  driver  system  which  links  all  of 
the  modules  for  the  entire  DSS  is  not  designed  properly,  then  the  system  cannot 
function  as  a  coherent  system,  even  if  all  its  parts  work  perfectly. 

1.  User  Design 

The  user  design  is  the  logical  design  of  the  system.  This  develops  the  tools 
that  form  the  DSS.  The  developers  must  have  a  clear  understanding  of  what  the  user  s 
needs  are,  and  ensure  that  these  are  addressed  in  the  system  design.  That  requirement 
is  no  different  for  DSS  development  than  for  MIS  development.  The  difference  is  that 
it  is  critically  important  for  DSS.  Unlike  an  MIS  project,  you  can  not  make  do  with  a 
system  that  meets  only  part  of  the  user's  requirements.  It  either  meets  those  needs  and 
is  used,  or  it  is  not  used. 

2.  System  Interface 

A  driver  links  the  tools  into  a  usable  system  Almost  ail  known  DSS  s  use 
some  version  of  command-driven  approach  for  user  interaction  [Ref.  1:  p.  181].  This 
allows  flexibility  and  ease  of  use.  It  also  nurtures  the  learning  process  about  the  types 
of  decisions  that  can  be  addressed. 

Flexibility  is  necessary  in  a  DSS  because  of  the  unstructured  tasks  it  is 
designed  to  perform  The  ad  hoc  capabilities,  that  have  been  the  hallmark  of  DSS  over 
the  past  decade,  can  only  be  accomplished  through  the  use  of  command  driven 
systems.  Systems  which  are  limited  onlv  to  menus.  Jo  not  have  this  llexibmtv  The 
designer  cannot  think  of  every  possible  combination  that  a  decision  maker  may  want  at 
some  future  time.  Even  if  all  possible  combinations  are  known,  the  cost  of 
implementing  them  in  another  form  other  than  through  a  command  language  would  be 
prohibitive. 
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3.  Data  Baaa  Management 

Dau-base  management  is  of  prime  importance.  Almost  all  DSS's  are  centered 
around  a  dau-base  system.  The  data  base  conuins  the  information  that  the  decision 
maker  needs  in  order  to  make  better  decisions.  The  dau  base  constitutes  the 
capabilities  of  the  entire  system  The  information  that  must  be  in  the  data  base  needs 
to  be  identified  early  in  the  design  process. 

Having  a  data  base  pnor  to  the  building  of  a  DSS  simplifies  the  design  of  the 
DSS.  The  functions  that  the  DSS  has  to  deal  with  are  lessened.  Most  data  base 
problems  can  then  be  discounted  or  at  least  simplified.  The  collection  and 
maintenance  of  data  used  by  the  DSS  may  already  be  accomplished.  Most  data  base 
management  issues  will  be  resolved,  such  as  integrity  and  security.  An  added  benefit  is 
that  the  chances  of  different  specific  DSS's  sharing  data  increases.  [Ref.  2:  p.  223] 

Data  can  be  obtained  from  many  sources.  A  DSS  must  be  able  to  aggregate  a 
variety  of  information.  Data  can  be  extracted  from  a  data  base  whether  in  house  or 
from  outside  sources.  The  DSS  is  then  able  to  manipulate  data  from  several  sources, 
and  format  it  into  useful  information  for  the  decision  maker,  without  affecting  the 
source  data  base.  Data  extraction,  taking  data  from  one  data  base  for  use  in  another, 
allows  source  data  files  to  be  organized  for  efficient  data  entry,  update,  processing, 
output,  or  protection,  without  additional  indices  or  data  to  support  the  DSS  [Ref.  2:  p. 
248]. 

The  original  data  base  management  system  can  be  used  for  the  functions  for 
which  it  is  best  suited.  Indices  and  data  for  the  DSS  are  stored  separately  from  the 
original  data  base,  within  an  extracted  data  base.  This  prevents  degrading  the 
performance  of  the  original  data  base. 

D.  ENVIRONMENT 

1.  Attitudinal  Direction  and  Requirements 

The  initial  implementation  using  the  iterative  development  approach  is  most 
effective  in  a  computer  resource  environment  that  is  both  centralized  and  decentralized, 
and  having  slack  resources  for  research  projects.  [Ref.  1:  p.  23ft].  The  centralized 
aspect  of  the  computer  resource  must  be  at  the  lower  tier,  providing  controls  over  the 
system  through  well  structured  procedures.  The  decentralized  aspect  of  the  computer 
resources  provides  an  environment  that  is  more  attuned  to  experimenting,  and  research 
and  development.  Slack  is  also  necessary  because  the  DSS  changes  the  organizational 
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emphasis  from  efficiency  to  effectiveness.  An  increase  in  effectiveness  is  usually 
attained  at  the  expense  of  efficiency.  Extracted  databases,  modeling,  and  other 
computer  manipulations  and  displays  can  greatly  decrease  the  efficiency  of  an  MIS. 
This  new  DSS  application  should  be  classified  as  R&D  until  it  becomes  an  integrated 
system.  The  slack  resources  cushion  the  inefficiencies  of  a  DSS  development 
preventing  a  drain  on  resources  from  other  areas. 

2.  Developmental  Requirements 

Iterative  design  is  the  key  to  DSS  design.  The  evolutive  approach  is  a 
methodology  based  on  the  progressive  design  of  a  DSS,  going  through  multiple,  as 
short  as  possible  cycles.  Successive  versions  of  the  system  under  construction  are  then 
utilized  by  the  end-user.  The  steps  in  the  process  include  [Ref.  2:  p.  139-140]: 

1.  Identify  an  important  subproblem. 

2.  Develop  a  small  but  usable  system  to  assist  the  decision  maker. 

3.  Refine,  expand,  and  modify  the  system  in  cycles. 

4.  Evaluate  the  system  constantly. 

These  steps  reiterate  the  previously  mentioned  design  criteria  expounded  by  both 
Keene  and  Morton,  and  Sprague  and  Carlson. 

Selecting  a  problem  with  a  high  probability  of  success  is  paramount  in  DSS 
design.  When  a  small  system  works  and  the  contributions  of  a  working  DSS  system 
can  be  demonstrated  and  observed  first  hand,  the  product  sells  itself. 

3.  DSS  Prototyping 

"The  most  successful  installation  technique  is  prototyping'  [Ref.  2:  p.  155]. 
Prototyping  provides  lower  risks  in  the  development  by  controlling  excessive 
expectations.  By  actually  demonstrating  the  feasibility,  the  user  can  see  the  actual 
benefits  a  system  may  have.  With  a  created  working  system,  the  developer  has 
concrete  facts  on  which  to  base  further  DSS  feasibility. 

4.  User  Education 

User  involvement  in  any  system  development  is  important,  and  the  iterative 
nature  of  DSS  makes  it  doubly  so.  To  insure  the  user  stays  involved  and  that  future 
users  can  get  involved,  proper  procedures  for  training  must  be  implemented.  Lser 
education  on  a  DSS  can  be  in  three  forms  [Ref.  2:  p.  153): 

1.  A  one  on  one  or  tutorial  technique. 

2.  User  courses,  lectures,  or  professional  development  seminars. 

3.  Res.dent  expert  assistance  when  needed. 
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This  education  must  begin  at  the  early  stages  of  development  This  will  ensure  the  user 
can  benefit  from  the  system. 

A  one  on  one  tutorial  is  the  most  common  and  expensive  training  technique 
[Ref.  2:  p.  154].  The  use  of  training  courses  and  seminars  is  another  common  method. 
An  expert,  either  internal  or  external,  can  instruct  users  at  all  levels  of  the 
development.  The  expert,  acting  as  a  consultant,  is  a  passive  version  of  the  tutorial 
technique.  Different  combinations  of  these  techniques  can  be  developed.  The  main 
lesson  is:  user  education  must  be  included  in  the  design.  This  insures  that  those  who 
can  benefit  from  the  use  of  the  DSS  have  the  ability  and  shills  necessary  to  do  so. 

5.  Support  for  DSS 

Factors  which  increase  the  likelihood  for  success  of  a  project  are  top 
management  support,  a  clear  felt  need  by  the  client,  an  immediate,  visible  problem  to 
work  on,  an  early  commitment  by  the  user,  a  conscious  stafT  involvement,  and  a  well 
institutionalized  OH  MS  or  MIS  group  [Ref.  1:  p.  196].  Support  from  top 
management  greatly  enhances  the  acceptability  of  any  new  project.  Employees  are 
more  willing  to  support  the  development  effort  if  they  think  it  is  a  good  idea.  If  top 
management  is  not  supportive,  or  is  hostile,  others  will  be  less  likely  to  accept  or  even 
give  the  project  a  fair  trial. 

E.  FINAL  WORDS 

Gad  Ariav  and  Michael  J.  Ginzberg  (Ref.  9],  further  define  the  three  functions  of 
a  DSS  first  expounded  by  Keene  and  Morton.  Figure  3.1  lists  the  components  of  a 
system  which  Ariav  and  Ginzberg  think  are  necessary  in  order  to  have  a  DSS. 

The  first  component,  dialog  management,  is  broken  down  into  user  interface, 
dialog-control  and  request  transformer.  Without  each  of  these  subcomponents  the 
dialog  management  system  is  incomplete.  Data  management,  the  second  component, 
is  subdivided  into  the  data  base  and  data  base  management  system,  a  data  directory,  a 
query  facility,  and  a  staging  and  extraction  function.  Finally,  the  model  management 
system  Is  partitioned  into  a  model-base  management  system,  model  execution, 
modeling  command  processor,  and  a  data  base  interface.  These  subcomponents  define 
the  complete  DSS. 

Ariav  and  Ginzberg  [Ref.  9],  looked  at  the  basic  resources  of  a  computer  system: 
hardware,  software,  people,  and  data.  They  found  it  is  only  after  the  DSS  has  been 
designed  (after  the  components  and  their  'ideal"  arrangement  have  been  selected)  that 
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Figure  3.1  DSS  Components  (Functions). 


resources  should  be  considered.  [Ref.  9:  p.  1049].  The  solution  should  drive  the 
selection  of  a  system,  the  system  should  not  drive  the  solution.  If  the  arrangement  is 
set  prior  to  design,  the  options  of  the  design  are  greatly  hampered  and  creativity 
stymied.  The  designer  must  design  a  DSS  based  on  the  solution  to  a  problem. 

Ariav  and  Ginzberg  [Ref.  9],  divided  software  into  four  types: 

1.  General-purpose  programming  languages. 

2.  DSS  tools. 

3.  DSS  generators. 

4.  Generalized  DSS. 

These  types  correspond  to  the  technology  levels  of  DSS  from  Carlson  and  Sprague. 
General  purpose  programming  languages  provide  only  limited  leverage  for  the 
development  of  a  DSS.  Tools  are  already  available  and  are  usually  cheaper  than 
reinventing  the  wheel.  DSS  tools  provide  only  a  single  function,  but  as  a  group  can  be 
the  building  blocks  for  a  DSS  generator.  Tools  only  address  one  function  of  DSS  and 
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need  to  be  integrated  into  a  system.  DSS  generators  are  a  collection  of  DSS  tools  but 
are  tailored  to  one  specific  problem.  For  example,  the  DSS  generator  IFPS  deals  only 
with  financial  problems.  Generalized  DSS  can  support  a  class  of  problems.  An 
example  of  generalized  DSS  would  be  a  PERT/CPM  system. 

The  design  of  the  DSS  should  be  independent  of  the  software  as  well  as  the  other 
components.  This  is  known  as  an  outside  approach.  An  outside  approach  provides 
that  the  selection  of  components  and  their  arrangement  (the  inside),  must  follow  from 
an  understanding  of  the  environment  and  the  role  (the  outside)  [Ref.  9:  p.  1051]. 

The  last  author  and  noted  authority  on  DSS  that  should  be  looked  at  is  George 
P.  Huber  [Ref.  10].  Huber  [Ref.  10:  p.  250],  states  that  a  DSS  is  a  system  specifically 
developed  to  carry  out  some  of  the  decision  making  information  processing.  This 
definition,  although  vague,  shows  the  trend  for  DSS's  toward  an  increasing  direct 
decision  making  influence.  A  DSS  allows  decision  makers  to  make  use  of  the  data 
that  other  technologies  are  making  more  and  more  available.  There  is  indeed  an 
information  boom  as  we  move  into  a  service  oriented  society  from  an  industrial  society 
[Ref.  10:  pp.  250-252].  This  trend,  as  well  as  the  advances  in  technology,  has  provided 
the  decision  maker  with  more  and  more  information.  The  role  of  the  DSS  is  the 
aggregation  and  summarization  of  all  the  pertinent  information  that  is  available  from 
all  sources.  A  DSS  allows  decision  makers  to  make  use  of  the  data  that  other 
technologies  do  not. 


IV.  METHODOLOGY 


A.  INTRODUCTION 

The  methodology  we  followed  was  a  task  organized  approach.  We  chose  our 
methodology  as  we  proceeded  based  on  our  particular  situation  and  constraints.  This 
approach  to  DSS's  was  a  semi-structured  one,  which  is  fitting  since  DSS  is  supposed  to 
help  solve  semi-structured  problems.  The  project  had  a  purely  R&D  attitude,  with  a 
useful  product  as  a  possible  side  benefit. 

Throughout  this  thesis  we  refer  to  our  system  as  a  prototype.  A  more  precise 
terminology  may  be  pilot  project.  Our  intent  is  not  to  initiate  a  DSS  but  to  "test  the 
waters"  to  see  if  an  environment  suitable  for  a  DSS  exists.  Our  intent  is  to: 

1.  Test  a  methodology  based  on  a  semistructured,  task  organized  approach. 

2.  Determine  if  a  suitable  environment  for  further  DSS  development  is  present  or 
can  be  established. 

3.  Determine  the  next  step  for  future  DSS  development,  if  appropriate. 

4.  Provide  the  shipyard  with  a  usable,  user  friendly  system  involving  control  and 
graphic  displays. 

Since  our  approach  in  determining  the  environment  revolved  around  a  methodology  for 
the  development  of  a  DSS,  we  refer  to  this  system  as  a  prototype. 

Many  constraints,  from  hardware  to  software,  were  introduced.  The  shipyard 
already  had  a  mainframe  computer,  several  minicomputers  and  microcomputers,  with 
more  micros  on  order.  That  level  of  prior  hardware  investment  and  the  nature  of  our 
project  required  our  system  to  operate  on  the  existing  hardware.  The  minicomputer 
application  was  chosen  because  of  the  number  of  terminals  connected  through  the 
shipyard  network  and  available  to  all  managers. 

Additional  constraints  involved  software.  No  new  software  to  support  the 
prototype  was  planned.  Therefore,  the  first  order  of  business  was  to  learn  the  existing 
system's  capabilities.  The  software  we  originally  focused  on  included  CPL.  the 
Command  Processor  Language  for  the  Prime  minicomputer,  the  Supercomp 
spreadsheet  program,  and  TEL-A-GRAF,  a  business  graphics  package  that  was 
recently  purchased  by  the  Shipyard. 
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B.  ITERATIVE  DEVELOPMENT 

The  major  theme  throughout  the  literature  on  DSS  development  is  the  use  of  an 
iterative  approach,  which  was  central  to  our  methodology.  It  provided  flexibility 
because  it  allowed  us  to  combine  the  design  and  implementation  phases  through  the 
building  of  a  prototype  system.  Since  this  development  strategy  results  in  a  rapidly 
produced  prototype,  it  should  not  be  construed  to  represent  a  complete  production 
model  DSS.  This  effort  merely  introduces  the  concept  of  DSS  within  an  organization 
with  no  prior  development  experience  in  this  area. 

The  iterative  approach  calls  for  rapid  succession  of  the  system  development  steps, 
with  redefinition  of  each  step  on  subsequent  iterations.  Our  only  strict  exit  criteria  was 
the  prototype.  We  set  no  limits  on  the  number  of  iterations,  nor  did  we  expect  to  have 
a  completely  functional  DSS  at  the  end.  Our  expectation  was  to  have  a  useful 
prototype  that  could  demonstrate  one  small  contribution  a  DSS  could  make,  and  to 
give  direction  to  further  DSS  development  within  the  shipyard. 

1.  Problem  Definition 

The  first  step  in  any  new  system  is  problem  identification  and  definition.  The 
Coopers  and  Lybrand  study  outlined  several  problems  common  to  most  Naval 
shipyards.  The  focus  of  our  project  centered  on  one  set  of  issues:  the  budget  system 
for  the  shipyard.  This  project  was  focused  for  one  division,  but  is  easily  expandable 
shipyard-wide  as  the  prototype  matures. 

In  addition  to  the  Coopers  and  Lybrand  study,  the  Mare  Island  Naval 
Shipyard  Information  Resource  Management  Plan  [Ref.  11],  outlined  the  need  for  a 
shipyard-wide  DSS.  This  perceived  need  for  a  DSS  and  the  desirability  of  the  budget 
system  being  a  part  of  that  DSS,  placed  a  two-fold  goal  on  this  project:  provide  a 
system  to  improve  managerial  control  of  the  budget  and  expense,  and  to  introduce  the 
concepts  and  capabilities  of  a  DSS  to  the  shipyard. 

Keen  and  Scott  Morton  refer  to  a  “diagnostic  perspective."  Designers  need  to 
be  sure  that  "they  understand  the  realities  of  the  decision  situation.. .they  ne.ed  a 
descriptive  model  as  the  basis  for  identifying  a  normative  direction."  [Ref.  1:  p.  77] 

Although  our  system  is  smaller  than  the  DSS  that  the  authors  were  describing  a 
strategy  for,  aspects  of  the  areas  they  felt  must  be  addressed  will  be  identified  and 
explained.  The  most  applicable  areas  are  the  "organizational  procedures  view',  the 
political  view  and  the  individual  differences  perspective."  [Ref.  1:  p.  63] 
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The  organizational  procedures  view  is  articulated  through  the  use  of  the 
structured  techniques  of  analysis.  The  structured  specification  outlines  the  flow  of 
data,  the  processes  or  procedures  that  manipulate  the  data,  and  the  storage  of  data. 
The  data  dictionary  seeks  to  define  the  data  elements  identified  during  the  data  flow 
analysis.  The  structure  chart  shows  the  development  of  the  system  design  to  meet  the 
requirements  of  the  organization's  operation.  This  efTort  is  the  structural  approach 
practiced  in  present  systems  analysis. 

The  political  view  is  approached  less  formally  in  systems  analysis.  It  is  not 
explicitly  documented  in  our  analysis,  but  has  tempered  our  considerations  and  to  a 
degree,  the  direction  of  the  development  effort.  For  example,  working  on  a  project 
within  the  Comptroller  Department  was  not  possible  because  of  their  current  concerns 
with  the  SABRS  project  and  our  inability  to  identify  definite  gains  or  improvements  for 
SABRS,  as  an  outgrowth  of  our  project.  On  the  other  hand,  the  degree  of  support 
available  within  the  MEIO  Department  caused  us  to  devote  our  initial  efforts  to  them. 

The  individual  differences  perspective  has  some  applicability  to  this  project. 
Since  our  prototype  was  developed  with  inputs  coming  from  only  two  individuals,  we 
easily  reconciled  any  particular  differences  between  them.  A  larger  development  effort 
within  the  shipyard  would  require  additional  efforts  to  meet  the  needs  of  a  wider 
spectrum  of  managers'  styles. 

2.  Structured  Techniques 

We  required  that  the  system  we  developed  be  as  maintainable  as  possible. 
The  adherents  to  the  structured  methodology  claim  that  fact;  therefore,  we  were 
convinced  to  include  the  method  where  possible  in  our  development.  Many 
proponents  of  DSS  might  disagree  with  this  decision.  Sprague  and  Carlson  point  out 
that  "DSS  are, ....research  efforts,  not  DP  projects,  and  therefore  not  well  suited  for 
traditional  project  management  procedures."  [Ref.  2:  p.  138]  We  would  agree  up  to  a 
point.  DSS  are  transactionally  oriented  processing  systems  and  therefore  the  discipline 
imposed  by  the  structured  techniques  are  still  applicable.  In  addition,  we  did  not  have 
the  luxury  of  being  in  close  proximity  to  the  users  or  the  programming  environment. 
These  constraints  required  that  we  use  a  methodology  that  produced  clear  and 
understandable  documentation,  and  also  required  minimal  correction  of  the  code. 

We  took  the  structured  approach  to  analysis  and  design,  relaxing  the  ending 
and  exit  criteria.  The  structured  methodology  was  used  for  the  analysis  because  we  felt 
the  approach  of  Keen  and  Scott  Morton  was  not  rigorous  enough  in  identification  of  a 


clear  approach  to  the  description  process.  It  would  not  produce  the  documentation 
which  we  believe  is  essential  to  the  clear  understanding  of  readers  and  follow-on 
implementors.  Additionally,  the  documentation  produced  would  be  textual.  A  textual 
description  would  not  have  been  as  clear,  and  definitely  not  as  concise,  as  the 
structured  specification. 

a.  Feasibility  Study 

If  we  had  been  closely  following  the  structured  analysis  and  design 
approach,  the  next  step  after  problem  definition  would  have  been  the  feasibility  study. 
Since  a  prototype  system  is  an  example  of  a  technical  feasibility  approach,  and  no 
further  systems  purchases  were  considered,  this  step  was  not  needed. 

b.  Analysis  and  Design 

The  next  step  was  analysis.  Our  analysis  took  us  in  two  directions.  The 
budget  system  within  the  MEIO  department  was  one  area  that  was  investigated.  The 
other  area  dealt  with  the  hardware  and  software  that  had  already  been  selected.  We 
were  not  familiar  with  the  hardware  nor  the  software.  Hence  we  had  to  learn  both  the 
budget  system  and  the  computer  system  simultaneously.  At  this  same  time  we  began 
the  system  design.  We  used  structured  techniques  to  graphically  map  out  the  system. 
These  preliminary  designs  were  actually  completed  before  the  analysis. 

The  descriptive  analysis  we  conducted  corresponds  to  the  Predesign  Cycle 
suggested  by  Keen  and  Scott  Morton.  We  attempted  to  build  "momentum  for  change 
and  developing  a  'contract'  for  action..."  in  order  to  foster  the  initial  climate  for 
change  [Ref.  1:  p.  173].  The  output  of  this  approach  is  to  produce  a  normative  model 
for  the  present  system  and  design  the  DSS  in  response  to  that  [Ref.  1:  p.  174].  The 
"degree  of  change"  proposed  by  our  design  is  not  large  because  of  the  nature  of  our 
project.  This  approach  was  necessary  to  minimize  risks  and  resource  requirements. 

To  assist  in  this  design,  we  followed  the  ROMC  method  introduced  by 
Sprague  and  Carlson  [Ref.  2].  We  started  at  R,  representations,  and  developed  three 
main  graphical  representations.  Several  graphic  displays  of  these  representations  were 
identified.  We  developed  these  graphics  by  focusing  on  one  manager,  a  decision  maker 
in  the  MEIO  department.  This  helped  us  to  narrow  the  analysis  to  a  workable  scope. 
Other  representations  were  also  considered,  such  as  comparisons  between  budget  and 
expenses  in  column  form.  We  decided  that  most  of  that  information  already  existed  on 
their  present  reports,  although  not  in  an  on  line  mode.  SABRS  was  to  give  the  user 
this  capability  when  operational.  We  decided  to  concentrate  on  areas  that  were  as  yet 
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not  directly  addressed  by  the  current  MIS  efforts.  One  other  representation  considered 
was  the  spreadsheet.  A  spreadsheet  could  give  the  user  limited  'what  iT  capabilities. 
We  decided  that  the  initial  prototype  would  contain  only  the  graphics  in  an  easy  to 
use,  menu  driven  system. 

The  next  step  in  ROMC  is  the  Operations.  For  our  prototype  system  the 
operations  centered  around  the  graphic  display  of  the  data.  It  included  selecting  and 
displaying  desired  budget  and  expense  information.  The  Memory  aids  for  our  initial 
system  focused  on  the  menus  of  the  system  Finally,  the  Controls  for  the  system  are 
also  handled  within  the  menus  at  this  preliminary  stage. 

At  this  point  in  the  development,  the  analysis  of  what  we  considered  a 
solvable  problem  was  completed.  This  problem  was  also  considered  to  be  of  value  to 
the  shipyard.  The  budget  problem  made  the  expansion  of  the  system  to  other 
departments  and  to  the  Commanding  Officer  of  the  shipyard  a  likely  second  specific 
DSS  to  pursue. 

The  preliminary  design  had  been  completed.  The  structured  specification, 
consisting  of  data  flow  diagrams,  data  dictionary  and  structure  charts  had  been 
completed.  The  detailed  design  was  already  begun.  Basically,  the  simplicity  of  this 
initial  system  allowed  us  to  combine  these  two  structured  steps  and  do  them 
simultaneously  with  the  analysis, 
c.  Implementation 

The  coding  and  implementation  was  then  begun.  This  was  done  iteratively 
with  revisions  coming  mostly  through  the  designers.  Initial  graphics  were  completed 
on  an  IBM  mainframe  at  the  Naval  Postgraduate  School  and  then  reentered  on  the 
Prime  minicomputer  when  on  site.  This  was  done  solely  for  the  convenience  of  the 
authors.  The  geographic  separation  of  the  implementation  site  and  the  developers 
prevented  a  more  interactive  approach.  This  did  have  an  effect  on  the  timing  of 
iterations,  which  caused  the  project  to  take  considerably  more  time  than  initially 
planned.  A  helpful  capability  we  had  at  our  disposal  was  that  we  could  interface 
directly  with  the  shipyard's  Prime  minicomputer,  and  we  authored  most  of  the  driver 
programs  from  out  remote  site.  Some  of  the  graphics  programs  were  also  entered  from 
the  remote  site,  but  they  could  not  be  completely  tested.  The  terminal  used  to 
interface  with  the  Prime  computer  was  a  Convergent  Technology's  C-3  terminal  and 
software,  which  was  not  suitable  for  the  graphic  displays  produced  by  the  TEL-A- 
GRAF  programs. 


When  a  skeleton  working  system  was  completed,  we  began  a  similar 
implementation  on  a  micro.  The  micro  system  was  developed  for  an  IBM  compatible 
XT  or  AT.  Four  reasons  justified  this  effort.  First,  the  trend  toward  personal 
computers  in  the  work  space  is  prevalent  in  all  industries.  Second,  the  shipyard  just 
purchased  several  IBM  compatible  Zenith  PC's.  Third,  the  same  analysis  and  design 
were  used  to  code  and  implement  the  system  on  the  PC.  Fourth  was  our  desire  to 
quickly  implement  our  data  base  design  as  a  model  of  what  could  be  developed  on  the 
minicomputer  system. 

These  efforts  confirmed  the  generic  design  of  the  system,  which  was  one  of 
our  goals.  We  strove  to  design  a  system  that  could  be  genetically  implemented  on  any 
system  having  the  appropriate  capabilities. 

When  coding  and  implementation  were  completed  the  testing  of  the  system 
was  accomplished.  Additional  graphics  were  added  to  complete  the  final  prototype. 
From  this  prototype,  the  direction  of  the  future  DSS  development  can  be  determined. 

3.  Data  Base  Development 

The  data  base  is  the  central  focus  of  our  proposed  DSS.  Further,  an 
understanding  of  the  data  flows  in  the  budgeting  process  helped  us  as  analysts  to  know 
exactly  what  data  were  important  to  this  system.  Sprague  and  Carlson  identified  data 
base  management  as  'an  important  prerequisite  to  a  DSS...'  [Ref.  2:  p.  222]. 
Although  we  have  not  incorporated  data  extraction  capabilities  into  our  design,  we 
would  agree  that  a  clear  understanding  of  the  data  involved,  and  a  method  of 
manipulation  of  that  data,  is  important  to  the  design  of  any  system. 

This  aspect  of  the  system  did  not  concern  us  directly.  However,  we  did 
identify  the  data  that  would  be  needed  for  the  initial  DSS.  The  source  of  this 
information  was  also  identified:  the  reports  that  the  shipyard  was  already  producing. 
The  MIS  department  agreed  to  handle  the  data  extraction,  and  we  proceeded  on  the 
assumption  that  the  data  would  be  available  in  the  format  we  desired. 

The  data  base  design  efforts  for  the  microcomputer  prototype  involved  the 
relational  data  base  methodology.  Our  primary  reason  for  selecting  it  was  our 
familiarity  with  it.  In  addition,  it  allows  a  great  deal  of  flexibility  to  shift  between 
logical  and  physical  design.  The  relational  design  can  also  be  readily  applied  to  other 
methodologies.  The  fact  that  the  particular  relational  data  base  management  system 
available  to  us,  for  the  microcomputer  implementation,  was  also  bein  installed  on  the 
shipyard’s  Prime  network,  further  influenced  our  decision. 


For  our  initial  system  the  required  data  consisted  of  only  expense  data  and 
budget  data,  which  were  already  available.  However,  no  historical  record  was  kept 
electronically  as  the  data  tapes  were  overwritten  about  every  two  months.  It  was 
realized  that  an  historical  data  base  would  need  to  be  kept  for  a  flexible  DSS.  This 
requirement  made  the  choice  of  the  minicomputer  for  the  system  even  better  due  to  the 
volume  of  the  data  necessary  for  such  an  historical  data  base.  We  also  realized  that  a 
shipyard-wide  DSS  would  need  a  flexible  data  base  management  system.  Although  the 
initial  implementation  would  only  need  a  simple  DBMS,  the  backbone  of  an  overall 
DSS  has  to  be  the  data  base  system. 

In  the  future  we  foresee  the  mainframe  and  the  minicomputer  becoming  more 
of  a  data  repository  and  less  application  oriented,  as  the  microcomputers  become  more 
pervasive  within  the  shipyard.2  This  trend  would  allow  the  decision  maker  to 
manipulate  his  own  data  base  on  his  PC,  and  allow  him  to  update  or  reinitialize  his 
data  base  from  the  master  file  on  the  minicomputer. 

In  actual  use,  this  data  base  must  at  least  be  compatible  with  the  data  base  on 
the  minicomputer.  We  further  recommend  that  the  two  data  bases  have  similar 
command  languages,  to  avoid  a  situation  where  managers  and  users,  have  to  learn  two 
different  systems.  Compatible  data  bases  would  simplify  the  sharing  of  data  and  data 
extraction. 


“Interview  with  Ronald  Munden,  Manger  MEIO,  Mare  Island  Naval  shipvard, 
December  10,  1986. 


V.  PRESENTATION  OF  THE  PROTOTYPE  RESULTS 


A-  REQUIREMENTS  DEFINITION 

1.  Cost  Center  Analysis  (Minicomputer) 

Cost  Center  Analysis  (minicomputer)  was  developed  for  the  Prime  9755 
minicomputer.  This  system  operates  under  the  PRIMOS  operating  system  and 
employs  the  Prime  Command  Processor  Language  (CPL)  as  its  development  language. 

The  prototype  is  made  up  of  several  small  programs,  based  upon  the  system 
structure  chart,  in  Appendix  A,  developed  during  the  analysis  portion  of  the  project. 
Sub-programs  rather  than  sub-routines  were  used  because  CPL  does  not  allow  the 
passing  of  parameters  from  sub-routines  to  calling  program. 

Differences  between  the  modules  of  the  structure  chart  and  the  actual 
programs  written  were  the  result  of  three  factors.  First,  the  goal  when  we  developed 
the  structure  chart  was  to  reduce  the  modules  to  their  functional  primitives.  CPL  has 
several  constructs  which  combine  some  of  the  functional  primitives.  Therefore,  it 
would  have  been  inefficient  to  strictly  follow  the  structure  chart  during  actual  coding, 
developing  each  module  as  a  separate  entity. 

Second,  the  interface  to  the  spreadsheet  was  determined  to  be  time  infeasible 
due  to  the  nature  of  the  spreadsheet's  method  of  control.  This  was  especially  true  in 
light  of  the  fact  that  this  was  not  a  critical  implementation  to  the  users.  The 
spreadsheet  requirements  could  more  effectively  be  met  using  SABRS.  Developing  the 
interfaces  to  SABRS  would  have  been  outside  the  scope  of  this  initial  project; 
therefore,  it  was  not  included. 

Third,  the  project  .vas  originally  designed  to  allow  the  user  to  develop  his  own 
data  and  include  files  for  TEL-A-GRAF  while  still  in  CCA.  The  resulting  loss  of 
control,  an  inability  to  ensure  the  user  developed  standardized  files,  caused  us  to 
eliminate  that  capability.  However,  the  flexibility  required  for  ad  hoc  queries  is  still 
available  within  the  system.  This  feature  is  provided  through  the  TEL-A-GRAF 
command  language. 

a.  Module  descriptions  and  functions 

The  structure  chart  depicted  in  Figures  5.1,  5.2  and  5.3  graphically 
describes  the  interrelationships  between  the  following  program  modules. 


Figure  5.1  Structure  Chart  of  CCA  (minicomputer). 


(1)  Prepare  Reports  (PR.CPL).  This  is  the  top  level  program  driver  of  the 
system.  It  calls  the  subprograms  to  produce  the  top  level  menu,  accepts  and  then 
validates  the  user's  response,  and  selects  the  appropriate  subsystem  or  ends  the  session. 
Thus,  the  system  is  transactional  in  that  the  particular  subsystem  selected  is  based 
upon  the  user  $  response. 

(2)  Display  Menu  ( DT5.CPL ).  This  is  the  program  that  displays  the  top 

level  menu. 

(3)  Call  Tel-a-graf  ( CTEL.CPL ).  The  major  sub-program  of  the  system, 
this  allows  the  user  the  option  of  selecting  standard  report  formats  and  nonstandard 
ones.  Depending  upon  the  user's  selection,  it  will  call  the  appropriate  sub-programs  to 
implement  the  desired  graphic  report. 

(4)  Manipulate  TEL-A-GRAF  ( MASTEL.CPL ).  This  program  calls  the 
sub-programs  that  allow  the  user  to  select  the  Cost  Center  Code,  Plot  Code,  Plot 
Options  Code,  and  finally  open  TEL-A-GRAF.  The  Cost  Center  Code  determines  the 
particular  Cost  Center  to  be  studied.  Plot  Code  allows  the  user  to  select  the  type  of 
graph  he  wishes  to  produce  with  TEL-A-GRAF.  The  Plot  Options  Code  controls  the 
level  of  detail  that  the  user  wishes  to  select. 

The  modules  that  select  the  codes  are  very  similar  in  structure.  We  will 
explain  the  sub-programs  to  select  the  Cost  Center  Code.  The  other  codes  are  selected 
in  much  the  same  way.  Select  Cost  Center  (SCC.CPL)  calls  Display  Cost  Center 
(DCC.CPL)  and  assigns  the  value  of  the  function  Validate  Cost  Center  (VCC.CPL)  to 
the  variable.  That  variable  is  subsequently  returned  to  Manipulate  TEL-A-GRAF 
(MANTEL.CPL).  Display  Cost  Center  provides  the  user  a  menu  of  the  Cost  Centers 
available  for  analysis:  that  number  is  one  for  this  initial  project,  but  could  be  easily 
increased  in  subsequent  versions.  Validate  Cost  Center  requests,  gets,  and  validates  the 
user's  response. 

(5)  Open  TEL-A-GRAF  ( OPTEL.CPL ).  This  determines  the  data  files 
and  include  files  to  be  used  by  TEL-A-GRAF,  and  calls  the  routines  that  actually  open 
TEL-A-GRAF  for  the  user.  Data  files  are  those  that  actually  contain  the  data  to  be 
graphed.  Include  files  are  essentially  programs  written  in  a  "structured  English"  that 
TEL-AGRAF  uses  to  build  the  desired  graphs.  Open  TEL-A-GRAF  uses  the 
combination  of  the  Cost  Center  Code,  Plot  Code  and  Plot  Options  Code  to  make  the 


determinations. 
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Figure  5.3  Continued  Structure  Chart  of  CCA  (minicomputer). 

(6)  TEL-A-GRAF  Interface  Programs. 

Six  sub-programs  actually  open  TEL-A-GRAF.  One  allows  the  user 
to  make  free  form  input  to  TEL-A-GRAF  (FREE.CPL).  This  would  be  for  those  users 
who  had  become  somewhat  familiar  with  the  TELA-GRAF  constructs  and  wish  to 
implement  graphs  which  they  design.  A  second  allows  the  graph  to  be  constructed 
from  one  data  Hie  and  one  include  file  (S1NGLE.CPL).  The  third  (DOUBLE.CPL)  is 
used  for  graphs  which  have  an  inset  graph,  and  therefore  requires  two  data  files  and 
two  include  files.  The  sixth  (DOUBAR.CPL)  is  designed  to  produce  a  bar  graph  which 
requires  one  data  file  but  two  include  files.  In  order  to  produce  a  graph  with  a  bar 
chart  insert  and  line  graph,  the  fifth  (TR1PLE.CPL)  is  used.  (TRIPLE. CPL)  requires 
two  data  files  and  three  include  files,  the  extra  include  modifies  the  plot.  The  sixth 
(QUAD. CPL)  allows  the  user  to  develop  a  composite  graph  made  up  of  four 
subgraphs.  It  requires  four  separate  data  and  four  separate  include  files. 
b.  Usability 

This  system  was  designed  for  users  needing  an  information  display 
capability  through  high  quality  graphics.  In  this  case  the  graphics  system's  command 
language  was  difficult  for  the  average  user  to  learn.  The  shell  provides  them  with  the 
ability  to  quickly  produce  the  information  displays  that  they  require. 

The  system  is  designed  in  such  a  way  that  the  users  only  minimally  interact 
with  TEL-A-GRAF.  In  that  way  they  learn  the  structure  of  the  command  language 
and  gain  confidence  in  their  abilities  to  control  TEL-A-GRAF.  As  they  gain 
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experience,  the  system  allows  users  to  begin  to  develop  their  own  TEL-A-GRAF 
command  language  programs  and  their  own  data  files. 

The  advanced  user  could  use  the  system  as  a  refresher  when  away  from  it, 
or  possibly  to  work  out  a  problem  that  puzzled  him.  It  is  not  likely  that  he  would  use 
it  to  any  great  degree,  however,  since  it  would  usually  be  quicker  to  go  directly  into 
TEL-A-GRAF  on  his  own. 

c.  Expandability 

The  structured  design  of  the  system  allows  for  easy  expandability. 
Subprograms  can  be  added  or  deleted,  usually  with  a  one  line  change  in  the  calling 
program. 

The  range  of  changes  could  include  interfacing  with  additional  systems  such 
as  a  spreadsheet,  statistical  program,  or  SABRS.  Additional  Cost  Centers  could  be 
added  very  easily.  The  only  limiting  factor  would  be  to  provide  the  data  files.  This 
could  be  circumvented  by  using  a  data  base  management  system  that  would  produce 
the  data  files,  and  then  an  application  program  which  would  format  them  for  TEL-A- 
GRAF.  Additional  graphic  displays  could  be  provided  by  merely  developing  new 
include  files  and  providing  the  user  interfaces  to  select  them. 

d.  Reliability 

CPL  is  an  excellent  development  environment  providing  many  built-in 
error  trapping  routines.  It  was  simple  to  provide  validation  of  all  user  inputs  requested 
by  the  system.  The  language  is  also  easily  applied,  thereby  further  reducing  the 
chances  for  errors. 

The  structured  approach  used  to  complete  the  design  clearly  presents  the 
proposed  system.  Programming  problems  were  quickly  identified  and  fixed.  It  allowed 
us  to  have  a  clear  idea  of  what  we  were  doing  while  coding,  much  as  an  outline  does 
for  an  author.  This  further  protected  us  from  logic  errors. 

e.  Integration  of  tools 

The  only  tools  available  to  this  development  effort  were  TEL-A-GRAF  and 
CPL.  TEL-A-GRAF  is  a  very  powerful  tooi.  but  it  is  difficult  for  the  average  user  to 
manipulate.  This  situation  forced  one  of  us  to  be  dedicated  to  the  development  of  the 
required  graphs.  That  effort  exceeded  our  time  estimates  due  to  the  complexity  of  the 
TEL-A-GRAF  command  language.  On  the  other  hand,  CPL,  a  programming  language 
written  specifically  for  Prime  minicomputers,  exploits  the  hardware  to  best  advantage. 


The  integration  of  the  two  environments  was  accomplished  by  building  a 
shell  around  TEL-A-GRAF  that  would  allow  the  average  user  to  make  use  of  menus 
to  produce  desired  graphs,  rather  than  use  the  TEL-A-GRAF  command  language. 
f  Problems 

Due  to  our  initial  lack  of  understanding  of  the  importance  of  the  data  base, 
this  system  was  built  with  a  file  management  orientation.  It  is  now  obvious  to  us  that 
this  approach  was  in  error.  The  system  should  have  been  built  around  a  data  base 
management  system.  This  would  have  produced  a  more  flexible  system. 

Geographic  separation  from  the  users  during  the  development  increased  the 
difficulties.  Close  coordination  with  the  users  was  then  not  possible,  and  resulted  in 
misunderstood  requirements  and  goals.  We  only  had  access  to  the  development 
language  via  networking  over  FTS  lines,  which  at  times  became  unusable  due  to  noise. 
In  addition,  the  version  of  TEL-A-GRAF  locally  available  to  us  was  not  directly 
compatible  with  that  available  at  the  user  site.  Consequently,  last  minute  changes  were 
required  before  demonstrating  to  the  users. 

A  major  limitation  of  CPL  is  that  sub-routines  can  not  pass  parameters  up 
to  a  calling  procedure.  Thus  most  "atomic''  routines  had  to  be  programs.  This  resulted 
in  many  small  programs  making  up  the  system.  Although  this  was  not  a  problem  for 
us,  it  could  be  a  problem  for  the  users  and  those  who  will  maintain  the  system 
2.  Cost  Center  Analysis  (microcomputer) 
a.  Introduction 

This  system  was  developed  to  address  the  most  critical  problem  of  the 
minicomputer  implementation,  the  lack  of  a  data  base  management  orientation.  In 
order  to  develop  a  system  that  allowed  easy  data  maintenance,  it  became  apparent  that 
a  file  management  application  would  not  be  effective  for  an  historical  data  base.  This 
version  is  integrated  with  a  DBMS  in  order  to  provide  the  easy  expandability  which 
would  be  beneficial  to  the  users. 

Originally,  this  was  to  be  a  concurrent  development  of  the  Cost  Center 
Analysis  system  Therefore,  there  was  no  consideration  given  for  compatibility  of  the 
"micro"  development  language  with  the  "mini"  development  language,  C  and  CPL 
respectively.  They  were  to  address  tw*o  separate  development  issues,  and  the  language 
used  for  each  w’as  irrelevant  to  the  efforts. 

The  design  of  the  data  base  is  relevant  to  each  since  it  could  be  applied  to 
either  system.  Oracle  was  therefore  selected  as  the  DBMS  because  it  is  available  for 


microcomputers,  minicomputers  and  mainframes  in  general,  and  in  particular  is 
scheduled  for  implementation  at  the  shipyard  on  the  Prime  network..  This  will  provide 
the  users  greater  flexibility. 

b.  Requirements 

Cost  Center  Analysis  (microcomputer)  hardware  requirements  are  an  IBM 
PC/XT/AT  with  at  least  640KB  and  a  hard  disk.  A  printer  is  optional  for  the  output 
print  options. 

The  software  requirements  are  the  Oracle  Data  Base  Management  System 
(DBMS),  PC/MS-DOS,  and  the  Cost  Center  Analysis  and  Graphic  Utilities  programs, 
all  installed  on  a  hard  disk. 

c.  Module  description  and  functions 

The  hierarchy  chart  depicted  in  Figures  5.4  and  5.5  graphically  describes 
the  interrelationships  between  the  following  program  modules. 

(1)  Cost  Center  Analysis.  This  main  module  contains  the  three  major  sub- 
modules  of  the  system: 

1.  Cost  Center  Information 

2.  Command  Level  Entry 

3.  Graphics  Displays 

It  provides  the  interface  for  Oracle  and  graphics.  It  also  allows  easy 
access  and  display  of  Oracle. 

(2)  Graphics.  This  module  allows  the  user  to  use  already  developed 
graphs  with  data  not  obtained  from  Oracle  directly,  but  input  to  a  file  by  the  user. 
Oracle  can  also  read  specified  data  into  a  file  form  within  the  Cost  Center  Information 
module.  This  data  can  then  be  plotted  from  within  the  graphics  module. 

(3)  Command  Level.  This  allows  the  user  the  opportunity  to  use  Oracle  at 
the  command  level,  through  the  User  Friendly  Interface  (UFI).  Ad  hoc  queries, 
updates  of  the  data  base,  deletions,  insertions  and  other  procedures  can  be 
accomplished  in  this  mode. 

(4)  Cost  Center  Information.  This  is  the  main  menu  driven  shell  for  CCA. 
It  allows  easy  access  to  specified  information  and  display  of  that  information.  CCI 
also  sends  specified  data  to  a  file  for  the  graphics  routines  to  use. 

(5)  Budget  VS  Expenses.  This  allows  display  and  comparison  of  budget 
and  actual  expense  information  by  various  categories,  and  interfaces  data  with 
graphics  for  further  displays. 
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(6)  Individual  Display.  This  module  displays  budget  vs  expenses  to  date  in 
thousands  of  dollars  for  either  Labor,  Material,  or  Other,  sorted  by  Cost 
Function/Cost  Class. 

(7)  Budget  Summary.  This  displays  budget  by  Cost  Function/Cost  Class 
for  the  current  fiscal  year. 

(8)  Display  Labor.  Budget  vs  expense  by  Cost  Function/ Cost  Class  for 
Labor  are  displayed. 

(9)  Display  Material.  Budget  vs  expense  by  Cost  Function/Cost  Class  for 
Material  are  displayed. 

(10)  Display  Other.  Budget  vs  expense  for  Other  costs  by  Cost 
Function/Cost  Class  are  displayed 

(11)  Total  Budget  VS  Expense.  This  module  sums  Labor,  Material 
and  Other  for  budget  and  expenses  to  date  by  Cost  Function,  Cost  Class,  Cost 
Function/Cost  Class  and  Cost  Center  as  requested,  and  sends  the  information  to  the 
graphics  utilities  when  directed. 

(12)  Total  by  Cost  Function.  This  sums  budget  and  expenses  to  date 
by  Cost  Function  and  displays.  It  sends  the  information  to  a  file  for  graphing,  upon 
request. 

(13)  Total  by  Cost  Class.  This  sums  budget  and  expenses  to  date  by 
Cost  Class  and  displays.  It  sends  the  information  to  a  file  upon  request  for  graphing. 

(14)  Total  by  Cost  Function/ Cost  Class.  It  sums  budget  and  expenses 
to  date  by  Cost  Function/ Cost  Class  and  displays. 

(15)  Total  by  Cost  Center.  This  module  sums  budget  and  expenses  to 
date  for  the  entire  Cost  Center  and  displays.  It  sends  the  information  to  a  file  for 
graphing  upon  request. 

d.  Implementation 

The  CCA  system  (microcomputer)  is  operational  but  not  to  the  extent  that 
we  originally  hoped.  The  memory  limitations  of  the  PC  prohibited  us  from  linking 
graphics  with  Oracle  directly.  To  perform  the  graphics,  extra  commands  must  be 
initiated  at  the  DOS  level.  This  was  not  the  original  intent.  The  system  indirectly  links 
Oracle  with  the  graphics,  which  still  accomplishes  our  original  goal. 

The  degree  of  difficulty  in  using  C  to  drive  both  the  graphics  and  Oracle 
was  underestimated  at  the  outset  of  this  project.  Another  limitation  had  to  do  with  the 
disk  storage  space  needed  to  support  all  the  products  that  were  tied  together.  The 
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system  we  developed  this  on  was  already  heavily  loaded  with  other  systems  and  thus 
hampered  our  development.  This  initial  prototype  system  will  allow  the  user  a  chance 
to  see  what  a  final  system  could  ’o,  and  to  further  direct  efforts  in  the  development  of 
future  prototypes. 

e.  Usability 

This  analysis  system  was  primarily  designed  for  the  inexperienced  or  casual 
user.  They  would  be  individuals,  such  as  managers,  who  have  not  yet  learned  the 
Oracle  command  language,  SQL,  or  never  intend  to  learn  it. 

During  the  analysis  portion  of  this  project  we  identified  the  information 
needs  of  the  users.  Queries  were  written  within  the  "shell''  to  specifically  address  these 
needs.  So,  the  average  user  is  not  likely  to  require  ad  hoc  queries,  at  least  in  the  short 
term. 

However,  we  have  included  the  ability  for  them  to  handle  unexpected  or 
unanticipated  questions,  or  to  make  necessary  data  modifications.  This  ability  is 
provided  by  our  system  through  the  Oracle  UFI.  This  interface  does  require  using  the 
command  language,  since  the  user  will  no  longer  have  the  menu  support  of  the  shell. 

Advanced  users  who  would  tire  of  the  system  menus  could  enter  the  UFI 
through  the  top-level  menu.  Occasionally,  they  might  make  use  of  the  system,  but  if 
they  know  the  command  language  they  will  probably  enter  the  UFI  directly. 

f.  Expandability 

As  mentioned,  ad  hoc  queries  are  supported  through  the  use  of  the 
command  language  option.  The  Command  language  allows  the  user  to  interface  with 
Oracle  via  the  UFI  as  described  above.  The  user's  manual  (Appendix  C)  shows  many 
examples  and  possible  approaches  to  retrieving  information  using  UFI. 

This  system  was  designed  to  be  used  by  only  one  Cost  Center.  However, 
this  is  a  prototype  system  that  could  be  expanded  to  all  Cost  Centers  within  the 
shipyard.  To  accomplish  this,  data  base  views  of  each  Cost  Center  could  be  developed, 
giving  the  manager,  of  a  Cost  Center  access  only  to  his  own  information.  Higher 
management  could  have  access  to  all  data  as  necessary.  Only  minor  adjustments 
would  be  necessary  to  implement  this,  namely  inserting  another  module  in  the 
hierarchy  above  the  CCI  module  allowing  the  specification  of  a  Cost  Center, 
combination  of  Cost  Centers,  or  all  Cost  Centers  depending  on  the  access  level  of  the 
requestor  and  his  interest.  The  specific  views  can  be  provided  through  the  data  base 
management  system.  The  amount  of  data  necessary  to  support  just  one  more  Cost 
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Center  would,  however,  double  the  amount  of  data.  This  would  not  only  increase  the 
storage  requirements,  but  would  also  increase  the  information  retrieval  time. 
g.  Reliability 

Any  large  program  written  in  C  is  suspect  when  the  question  of  reliability 
comes  up.  The  strange  and  wonderful  things  that  C  programs  can  do  when  errors 
occur  can  be  truely  awe  inspiring.  However,  painstaking  error  traps  have  been  built  in 
to  counter  all  known  problems.  Each  input  from  the  user  is  checked  for  validity. 
Numbers  are  checked  to  see  if  they  are  in  range  and  if  not,  the  user  is  returned  to  the 
same  menu.  The  user' also  has  the  opportunity  to  review  his  inputs  to  insure  that  the 
value  inputed,  was  the  value  he  really  wanted. 

B.  GRAPHICS  MODULE 

After  we  constructed  the  initial  structure  chart  we  exploded  both  main  modules: 
the  control  module  and  the  graphics  module.  Then  we  began  the  detailed  design  of  the 
graphics  module  by  following  the  ROMC  approach  [Ref.  2].  The  initial  representations 
were  given  to  us  by  the  user,  who  had  been  creating  graphs  for  his  own  use  on  a 
microcomputer  using  LOTUS  123.  These  graphs  were  time  consuming  to  produce 
because  the  data  had  to  be  extracted  and  inputed  by  hand. 

The  user  wanted  multiple  graphs  on  one  page  which  would  summarize  the  data 
more  effectively.  The  first  graph  that  he  wanted  was  a  bar  graph  of  the  budgeted 
amounts  for  the  Cost  Center,  broken  down  by  Cost  Function.  On  the  same  page  with 
that  graph  he  wanted  a  plot  of  the  budget  versus  the  actual  expenses  as  a  function  of 
time  (see  Figure  5.6  ).  This  plot  was  applicable  to  either  the  total  Cost  Center  or  for 
one  of  its  Cost  Functions. 

Our  methodology  for  designing  the  graphs  paralleled  the  methodology  we 
incorporated  in  our  DSS  development:  an  iterative  approach.  These  graphs  were  then 
scrutinized  and  revised  as  necessary. 

Most  of  the  actual  keying  of  the  code  was  done  180  miles  away  from  the 
shipyard  via  telephone  lines.  The  original  coding  iterations  were  done  on  the  Naval 
Postgraduate  School's  IBM  3033,  before  entering  on  the  Prime.  The  School,  like  the 
shipyard,  has  TEL-A-GRAF  and  the  code  is  transferable  between  systems,  with  one 
exception.  The  window  sizes  created  for  the  graphs  on  the  IBM  were  slightly  different 
for  the  Prime.  Therefore,  complete  testing  could  not  be  performed  until  we  actually 
went  to  the  shipyard.  We  could  test  for  coding  errors,  by  observing  a  run.  but  the 
terminal  we  used  to  input  the  code  did  not  support  the  graphics. 
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I  Figure  5.6  Composite  Graph,  Bar  Chart  and  Plot  of  Budget  VS  Expense. 
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1.  TEL-A-GRAF 

As  our  first  step  we  learned  TEL-A-GRAF,  the  graphics  system  that  we  would 
be  using.  'TEL-A-GRAF  is  a  conversational  computer  graphics  system  that  produces 
publication  quality  charts  and  graphs  [Ref.  12:  p.  A-3].' 

The  tutorial  for  TEL-A-GRAF  [Ref.  12],  walks  the  user  through  some  simple 
graphs.  The  command  language  is  English-like  and  was  easy  to  follow  for  the  simpler 
graphs.  TEL-A-GRAF  encourages  the  user  to  experiment  when  building  graphs  until 
he  gets  the  desired  format;  again  an  iterative  approach. 

A  profile  file  tells  TEL-A-GRAF  which  device  the  user  is  on,  what  his 
secondary  device  is,  and  other  facts  necessary  for  TEL-A-GRAF  to  operate.  If  the 
user  does  not  have  a  profile  file,  TEL-A-GRAF  will  prompt  the  user  for  the  necessary 
information.  For  our  system  we  wanted  the  control  of  TEL-A-GRAF  to  be 
maintained  by  the  control  module.  Therefore,  a  profile  file  must  be  established  prior  to 
the  use  of  this  system  for  each  user.  A  Sample  profile  file  that  was  used  when 
developing  the  system  is  shown  in  figure  5.7  . 


Figure  5.7  Sample  TEL-A-GRAF  Profile  File. 

TEL-A-GRAF  can  be  used  on  a  variety  of  devices.  The  primary  device  refers 
to  the  main  device  that  the  user  wants  to  create  his  graphics  on.  When  the  commands 
“GO."  or  “DRAW  l  2."  are  issued  the  graphics  file  is  created  for  the  device  named  as 
primary  device.  If  the  command  "SEND"  is  issued  the  graphics  file  created  is  for  the 
secondary  device. 

TEL-A-GRAF  also  has  the  capability  of  creating  a  device  independent 
graphics  file  that  can  be  used  later  on  any  graphics  device,  such  as  printers,  plotters,  or 


■BWPWWWWWWWWWWW 


MPXJIMW  WBUflU  U  IMP  WWW  WWW  IFWWff  WV  «.■  W  WVV  V  VVffV  ■g.’WJVTT 


Tf  imiTnEn  JisuFur 


other  graphics  terminals.  This  is  accomplished  through  the  use  of  the  Post  Processor, 

known  as  "POP".  By  naming  either  the  primary  or  secondary  device  as  "POP",  a  device 

independent  file  will  be  created.  This  file  can  then  be  executed  later  using  the 

# 

DISSPOP  command.  Appendix  B  provides  further  information  on  the  use  of  TEL-A- 
GRAF. 

The  profile  file  can  be  changed  while  in  TEL-A-GRAF  at  the  command  level. 
When  the  generate  prompt  of  TEL-A-GRAF  appears,  a  device  or  value  of  a  profile  file 
can  be  changed  by  issuing  a  command  such  as  "PRIMARY  DEVICE  IS  POP."  This 
command  would  change  the  primary  device  to  the  post  processor  for  the  remainder  of 
that  session. 

a.  Composite  Graph 

Once  we  were  familiar  with  the  TEL-A-GRAF  language,  the  actual  coding 
of  the  first  graphs  began.  This  was  in  itself  an  iterative  process.  The  basics  learned 
from  the  tutorial  [Ref.  12],  and  the  specific  requirements  for  these  graphs  were 
aggregated  to  produce  the  finished  product.  Figure  5.6  shows  the  final  graph  for  the 
two  initial  graphs  suggested  by  the  decision  maker.  One  of  our  main  goals  while 
developing  this  code  was  to  keep  the  graphics  module  independent.  We  designed  the 
graphics  to  run  from  a  batch  type  mode.  We  assumed  the  data  was  in  independent 
files  in  the  necessary  format.  This  allowed  us  to  concentrate  on  the  display  and  not 
worry  at  this  point  on  how  the  data  got  to  be  in  those  files.  This  is  a  flexible 
approach  that  will  allow  the  shipyard  to  choose  any  data  base  system  to  complete  the 
implementation.3 

Each  graph  required  a  data  file  and  at  least  one  include  file.  The  data  file 
contained  the  formated  data  as  TEL-A-GRAF  would  accept  it.  Figure  5.8  shows  one 
format  that  TEL-A-GRAF  will  accept.  Other  formats  are  discussed  in  Appendix  B. 

The  include  files  contained  the  TEL-A-GRAF  commands  which  set  up  the 
graphs.  The  original  include  files  contained  the  titles  and  labels  for  cost  center  9110. 
To  change  the  title  or  labels  to  create  a  similar  graph,  a  secondary  include  file  was 
created.  This  secondary  include  file  changed  title  and  label  line  commands  in  the  major 
include  file.  This  allowed  the  flexibility  to  create  the  same  graph  from  different  data. 
These  include  files  could  also  be  called  up  by  hand  and  changed  line  by  line  to  fit  a 
different  need  of  the  user.  This  made  the  design  of  a  modular  system  simpler.  The  first 


3 We  recommend  a  relational  data  base  for  flexibility. 

in  detail  later. 


The  data  will  be  discussed 
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INPUT  DATA. 

"BUDGET" 

0  0  l  0.8035  12  9.64198 
"EXPENSE" 

o'o  1  6.92  2  1.59901  3  2.4567  4  3.34567  5  4.0002  6  4.78999  7  - 
5.477  8  6.008  9.2  6.91127 

&wDATA- 


Figure  5.8  TEL-A-GRAF  Data  File. 

include  file  contained  the  commands  for  a  graph  labelled  for  Cost  Center  9110.  If  the 
graph  was  to  display  a  Cost  Function,  instead  of  the  Cost  Center,  another  include  file 
was  needed  to  change  the  labels  and  title.  When  other  Cost  Centers  are  added  to  the 
system,  the  same  process  will  apply. 
b.  Triple  Bar  Graph 

Once  the  initial  graph  was  complete,  we  began  the  design  of  a  new 
representation.  Based  on  our  analysis,  we  determined  that  a  bar  graph  which  displayed 
the  total  budgeted  data,  the  budget  as  a  straight  line  percentage  of  the  elapsed  fiscal 
year,  and  the  actual  expense  to  date  would  be  useful.  This  is  basically  the  same 
information  displayed  in  the  original  composite  graph.  However,  we  felt  that  this 
prototype  should  offer  a  choice  of  representations  to  the  manager.  One  purpose  of  a 
DSS  is  to  provide  the  decision  maker  with  the  appropriate  information  in  a  format 
with  which  he  is  comfortable.  This  allows  the  decision  maker  to  choose  one  of  the 
formats. 

The  same  iterative  process  was  followed  when  creating  the  second  graph. 
After  repeated  testing  and  manipulations,  the  graph  was  ready.  This  graph  was  also 
created  using  the  TEL-A-GRAF  include  files.  This  allowed  for  one  basic  command  file 
that  the  other  includes  build  from.  This  strategy  made  the  manipulations  of  the  labels 
only  a  matter  of  changing  one  line,  rather  than  rewriting  the  entire  program.  The  data 
was  again  assumed  to  be  already  in  place,  properly  formatted. 
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Figure  5.9  shows  the  finished  graph.  This  graph  summarizes  and  compares 
the  budget  to  expenses,  both  to  the  total  budget  and  to  the  percent  of  budget  as  a 
function  of  time.  Although  not  specifically  addressed,  variances  can  be  identified  and 
estimated  using  this  graph. 

c.  Variance  Analysis  Graphs 

The  last  graphs  developed  represented  four  bar  graphs  displayed  on  one 
page.  These  graphs  display  variance  of  the  Cost  Center  for  overtime,  straight  time 
Hours  and  Labor,  Material,  Other  and  Total.  Again,  the  same  iterative  approach  was 
taken  in  coding.  The  data  was  also  assumed  to  be  present  in  the  data  file.  The  graphs 
contained  the  following  information: 

1.  Percent  Expended 

2.  Data  Normalized  on  the  Percent  of  Elapsed  Time 

3.  Variance  in  Dollars 

4.  Percent  variance 

These  graphs  were  suggested  by  the  user.  They  are  designed  to  fill  a  gap  in  the 
analysis  of  variance.  The  exact  manipulation  of  the  data  to  attain  these  figures  is 
explained  below.  Figure  5.10  shows  the  structure  and  format  of  these  graphs.  A  brief 
description  of  each  follows. 

The  percent  expended  shows  the  percent  of  elapsed  time  based  on  the  date 
of  the  data  and  the  amount  of  the  fiscal  year  elapsed.  The  remaining  percentages 
represent  the  percent  of  the  budget  expended.  The  formula  for  this  is: 

Percent  Expended  ■  Expense  ,  Budget 

Labor  is  broken  down  into  overtime  and  straight  time.  These  are  key  areas  of  interest 
to  the  manager  because  he  usually  has  direct  control  over  Labor. 

The  data  normalized  on  percent  elapsed  time,  normalizes  the  elapsed  time 
to  one.  This  normalization  changes  the  percent  expended  from  the  first  graph  into  a 
percentage  of  elapsed  time.  That  is,  if  20%  of  the  budget  was  expended  and  20%  of 
the  year  had  elapsed,  the  normalized  value  would  be  one.  the  same  as  elapsed  time.  If 
the  normalized  percentage  is  less  than  one,  less  has  been  spent  in  that  category.  If  the 
percentage  is  greater  than  one,  more  than  the  percentage  was  spent. 

Normalized  *  Percent  Expended  /  Percent  of  Year'  100 


VARIANCE  IN  DOLLARS 


Variance  in  dollars  gives  the  dollar  amounts  of  the  variance.  This  is 
important  because  the  percentages  can  be  deceiving.  If  a  category  has  a  large  variance, 
but  only  a  small  amount  of  money  was  budgeted,  the  dollar  amount  may  be 
insignificant.  For  items  with  large  dollar  amounts,  small  variances  could  involve  large 
sums  of  money  and  be  much  more  significant  to  the  financial  situation. 

Variance*  Expense  ■  (%  of  Year  *  Budget) 

Percent  variance  displays  the  values  as  the  percentage  based  on  the 
budgeted  amount.  This  is  the  percent  of  the  budget  divided  into  the  amount  expended. 

%  Variance  *  Variance  /  (%  of  Year  *  Budget  /  100) 

2.  Graphics  on  the  Microcomputer 

The  implementation  on  the  microcomputer  followed  the  same  design  as  the 
implementation  on  the  minicomputer  for  the  graphics.  The  variance  graphs,  however, 
were  not  implemented  on  the  "micro.'  The  graphs  produced  and  the  completion  of  the 
data  base  on  the  microcomputer,  demonstrate  the  technical  feasibility  of  this 
implementation.  However,  there  are  limitations  that  must  be  considered. 

The  memory  limitations  on  the  micro  did  not  allow  us  to  implement  a  fully 
interactive  system.  The  graphics  package  used,  Graphic,  combined  with  the  data  base 
programs  and  the  control  programs  would  not  run  as  an  integral  system  due  to 
insufficient  memory.  This  was  resolved  by  having  the  control  program  interact  only 
with  the  data  base.  The  control  program  would  ask  the  user  if  he  wanted  a  graph  of 
appropriate  data.  If  the  user  responded  positively,  a  data  file  would  be  created  that 
would  be  accessed  by  the  graphics  program.  The  user  would  then  leave  the  control 
program,  choose  the  correct  program  to  run,  and  run  it.  The  data  file  is  accessed 
automatically. 

The  graphic  programs  on  the  microcomputer  were  more  complicated  to  code 
than  the  TEL-A-GRAF  graphics  on  the  minicomputer.  Compiling  and  linking  slowed 
down  the  iterative  design  process,  but  the  same  procedures  for  developing  the 
microcomputer  graphics  were  followed.  But  formatting  the  output  data  was  not  a 
problem  since  the  data  base  management  system  and  the  Graphic  utilities  were  written 
in  a  common  language,  C. 


C.  DATA 

The  data  was  not  a  major  concern  for  us  during  the  first  iteration  with  the 
minicomputer,  except  for  identifying  a  particular  data  element  needed  for  each  graph. 
Since  the  shipyard  was  responsible  for  extracting  the  data,  we  concentrated  on  the 
control  program  and  the  graphics.  When  we  began  the  microcomputer 
implementation,  the  overall  design  was  completed.  However,  this  implementation 
actually  dealt  with  the  data,  so  it  became  the  central  focus.  Although  we  side  stepped 
the  issue  in  the  initial  effort,  we  found  that  the  data  structure  played  a  key  role  in  the 
design. 

1.  Data  Base  on  the  Microcomputer 

Originally,  we  identified  the  origin  of  the  data  elements.  The  origin  of  the 
data  was  the  reports  that  were  generated  on  the  shipyard's  mainframe.  However, 
halfway  through  the  analysis,  the  reports  changed.  The  new  reports  from  SABRS 
contained  the  information  in  a  variety  of  formats  and  was  produced  on  the 
minicomputer.  This  report  (SBR-22A)  summarized  the  data  by  Cost  Function/Cost 
Class  for  each  Cost  Center.  This  was  the  best  way  to  store  the  data  for  our  data  base 
because  all  combinations  of  Cost  Centers,  Cost  Function,  and  Cost  Class  can  be 
derived  from  this  information,  thus  minimizing  the  storage  of  the  data. 

One  problem  occurred  that  caused  our  data  base  to  be  larger  than  originally 
planned.  Entries  that  do  not  have  values  must  be  entered  as  zero.  This  greatly 
expanded  the  data  base  because  many  authorized  Cost  Functions  rarely  use  some 
authorized  Cost  Classes.  However  if  they  are  omitted,  inconsistencies  occur  when  the 
budget  and  expense  tables  are  joined  in  an  operation.  For  example,  if  a  particular  Cost 
Function/Cost  Class  did  not  have  a  budgeted  amount,  but  did  have  a  later  expense,  the 
expense  would  be  lost  in  a  comparison.  The  tables  of  the  data  base  are  joined  on  the 
Cost  Function/Cost  Class  combination  and  if  there  is  no  value  for  a  particular  Cost 
Function;  Cost  Class,  the  value  from  the  expense  table  is  not  included  in  the  resulting 
joined  table. 

The  result  is  that  an  entry  must  be  present  for  each  authorized  Cost 
Function,  Cost  Class.  The  budget  table  contains  only  one  value  for  each  authorized 
Cost  Function/Cost  Class.  The  expense  table  on  the  other  hand,  must  contain  a  value 
for  each  update.  This  means  the  table  increases  in  size  on  each  update  by  a  constant. 
If  the  update  is  made  ever/  two  weeks,  approximately  26  updates  will  have  occured. 
That  means  the  expense  table  will  be  26  times  the  size  of  the  budget  table. 
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2.  Historical  Data  Base 

If  an  historical  data  base  is  desired  for  the  DSS,  an  additional  field  will  need 
to  be  added  to  the  budget  table:  the  fiscal  year.  All  selects  based  on  the  current  fiscal 
year  will  have  to  be  identified  by  year,  or  by  maximum  fiscal  year,  if  the  next  year's 
budget  is  not  yet  installed. 

3.  Data  Base  Design 

We  anticipate  that  the  final  system's  data  base  will  be  electronically  updated. 
The  volume  of  the  data  is  very  predictable.  The  expense  data  will  be  appended  at  mid- 
month  and  at  the  end  of  each  month. 

The  data  retrieval  rate  is  estimated  to  be  fairly  low  10  to  20  times  daily.  At 
critical  periods  in  the  fiscal  year,  the  utilization  will  be  much  higher,  such  as  the  end  of 
quarters,  prior  to  mid  year  review,  and  at  the  end  of  the  fiscal  year.  The  retrieval  rates 
at  those  times  is  estimated  to  double  or  triple. 

Managers  can  allow  others  access  to  their  data  base  with  read  only  privileges. 
Some  information  and  views  can  also  be  restricted  using  the  data  base's  userids  and 
passwords.  This  can  increase  the  utilization  of  the  data  base  while  still  maintaining 
control  over  the  dissemination. 

a.  Bachman  Diagram 


Figure  5.11  Data  Base  Design  Bachman  Diagram. 


The  main  relationship  for  this  implementation  is  the  one  between  budget 
and  expenses.  As  depicted  in  Figure  5.11  this  is  a  one  to  many  relationship.  Even  if 


budgets  are  developed  monthly  or  quarterly  the  relationship  holds.  The  newer  budgets 
simply  supersede  the  older  ones. 

b.  Relational  Model 

The  record  structures  are  depicted  for  the  data  base  design  (keys  are 

italicized): 

1.  BUDGET  (  COST  FUN  NO.  COST  CLASS  NO,  ST  HOURS,  OT  HOURS, 
ST  LABOR,  OT  LABOR,  MATERIAL,  OTHER) 


2. 


EXPENSE  (  COST  FUN  NO,  COST  CLASS  NO.  DATE.  ST  HOURS,  OT 
HOURS,  ST  LABOR,  OT  LABOR,  MATERIAL,  t>THER) 

c.  Normal  Forms 


Normalization  is  a  process  by  which  we  attempt  to  minimize  "anomalies"  in 
the  data  base  design.  These  anomalies  generally  can  cause  data  inconsistencies,  loss  of 
entire  records  during  updating,  and  inappropriate  relationships  between  different  record 
types  when  joining  tables.  The  effort  is  to  normalize  to  as  high  a  degree  as  possible, 
trading  off  retrieval  performance  and  increasing  interrelational  constraints  [Ref.  13]. 

In  the  discussion  of  normal  forms,  we  do  not  attempt  to  justify  our 
normalization  beyond  the  third  normal  form.  We  felt  that  the  excessive  interrelational 
constraints  would  tend  to  make  the  data  base  less  workable.  In  addition,  all  tables  are 
in  first  normal  form,  because  of  the  lack  of  repeating  groups  in  our  data  structures,  so 
discussions  that  further  illuminate  that  point  are  not  needed. 

(1)  BUDGET  Table. 

This  table  is  in  second  normal  form  since  all  the  non-key  attributes  rely 
on  all  of  the  key  (Cost  Function  number  and  Cost  Class  number).  Additionally,  all  the 
non-key  attributes  are  independent  of  each  other.  For  example,  Hours  (straight  or 
overtime)  does  not  directly  relate  to  Labor  cost,  since  it  requires  computations  and 
reference  to  other  schedules  in  order  to  be  produced.  That  is  the  reason  why  both 
Hours  and  Labor  are  listed.  With  the  independent  non-key  attributes,  there  are  no 
transitive  dependencies,  placing  Budget  in  third  normal  form. 

(2)  EXPENSE  Table.  The  Expense  table  is  similar  in  structure  to  the 
Budget  table.  However,  it  has  an  additional  attribute  in  the  key,  Date.  All  the  non¬ 
key  attributes  require  reference  to  ail  attributes  of  the  key,  so  this  table  is  aiso  in 
second  normal  form.  Again  the  non-key  attributes  do  not  directly  relate  to  each  other, 
so  it  is  also  in  third  normal  form. 

d.  Interrelational  Constraints 


There  are  going  to  be  a  certain  amount  of  interrelational  constraints  in  any 
data  base.  The  important  questions  to  consider  are  do  the  designers  realize  its 
existence,  do  they  understand  why  it  is  there,  and  are  they  in  control  of  it.  In  this  data 
base  the  existence  of  the  interrelations  is  largely  a  function  of  the  nature  of  the 
problem  that  the  data  base  attempts  to  address.  The  greatest  interrelational 
dependency  is  caused  by  the  Cost  Function  and  Cost  Class  numbers.  They  are  the 
most  integral  pieces  of  data  within  the  data  base.  Without  them  the  tables  that 
contain  them  would  be  meaningless.  They  are  the  language  for  tracking  costs  of 
operations  within  the  Cost  Centers  of  the  Shipyard.  They  categorize  the  data. 

Combining  all  the  tables  with  these  common  attributes  is  not  a  sufficient 
answer  to  reduce  interrelational  constraints,  since  that  would  reduce  the  normalization 
of  the  tables,  and  increase  redundancy.  The  trade-ofT  is  to  keep  this  interrelational 
constraint,  since  it  requires  the  least  overhead  and  maintenance. 


VI.  INTERPRETATION  OF  THE  DEVELOPMENT  EFFORT 

A.  ANALYSIS  OF  THE  METHODOLOGY 

The  approach  we  applied  to  this  development  effort  appears  to  have  worked  well 
for  this  project.  The  requirements  presented  to  us  were  not  clear,  since  the  users  did 
not  have  a  concrete  idea  of  what  they  specifically  needed  or  wanted  for  this 
information  retrieval  and  display  system.  In  addition,  we  did  not  have  a  clear 
understanding  of  what  was  being  asked  of  us,  and  what  the  effort  would  entail. 

The  methodology  we  selected  forced  us  to  be  thorough  in  our  analysis  and 
design,  and  gave  us  flexibility  to  alter  development  directions.  We  elected  to  follow  a 
combination  approach,  which  we  felt  would  best  answer  the  needs  and  requirements  of 
this  particular  project.  This  pilot  project  was  carried  out  within  the  framework  of  a 
prototyping  approach.  The  development  environment  follow  the  dictates  of  Yourdon 
for  a  prototyping  environment  [Ref.  3:  pp.  225-226]: 

1.  There  is  onlv  a  single  user  or  at  most  a  small  eroup  of  users  who  are  'localized' 
in  the  sense  that  they  work  in  the  same  organizational  group  and  within  the 
same  physical  location. 

2.  The  data  model  exists  or  can  be  easily  created. 

3.  The  application  is  small  to  medium 

4.  Everyone  agrees  that  the  prototype  is  onlv  a  'toy'  svstem  and  that  it  is  intended 
as  nothing  more  than  a  model  or  the  production  system 

The  prototype  approach  was  essential.  We  were  attempting  to  develop  a  system 
based  on  an  unclear  problem  statement  and  no  prior  experience;  we  required  the  slack 
that  this  approach  could  provide.  Meeting  Yourdon's  premises  further  supported  the 
prototy  ping  decision. 

Our  approach  to  prototyping  was  not  simply  to  go  forward  and  start  writing  lines 
of  code.  Within  this  framework  we  applied  structured  analysis  to  conduct  the  analysis 
of  the  present  situation.  We  selected  the  structured  tools  in  order  to  provide  ourselves 
with  the  clearest  appraisal  of  the  users'  present  system.  The  structured  design 
following  the  analysis  easily  flows  from  the  same  cools  and  provides  the  users  with  a 
clear  documentation  of  how  the  system  was  designed.  The  resulting  structured 
specification  of  data  flow  diagrams,  data  dictionary  and  structure  chart  clarified  our 
understanding  and  assisted  the  coding  efforts  of  the  two  phases. 
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1.  Documentation 

The  program  design  of  the  first  project  more  closely  followed  the  structured 
design  than  the  second  did.  The  major  reason  is  that  during  the  second,  the 
orientation  of  the  project  shifted.  The  importance  of  the  data  base  design  became 
apparent  during  the  microcomputer  implementation.  The  design  and  structure 
documents  are  purposely  made  broad  to  keep  from  locking  in  on  one  system. 
Although  the  constraints  of  hardware  and  software  greatly  limit  the  alternatives,  by 
keeping  the  design  flexible  and  general,  several  alternatives  became  apparent. 

In  actuality,  we  built  two  prototypes  in  this  project.  Although  neither  are 
complete  in  the  sense  of  a  production  model,  both  contributed  to  the  overall  project. 
Neither  system  as  yet  has  the  capability  to  be  updated  electronically.  Yet  both  rely  on 
the  concept  of  the  electronic  update  based  on  the  SABRS  reports  for  their  feasibility. 
The  minicomputer  version  has  a  data  base  in  design  concept  only.  The  microcomputer 
version  does  not  have  all  the  graphs  implemented,  and  none  of  the  variance  analysis 
graphics.  However,  although  they  are  different  systems,  together  they  complement 
each  other  by  providing  us  with  differing  views  of  the  same  project. 

The  quick  implementation  of  the  microcomputer  version  proves  that  the 
design  was  generic  enough  to  be  implemented  on  two  completely  different  systems. 
The  design  for  the  major  modules  was  already  completed.  We  quickly  found  that  a 
more  detailed  design  was  necessary  to  actually  develop  the  data  base.  This  is  part  of 
the  iterative  process.  Now  the  data  base  design  is  completed  and  could  be 
implemented  on  the  minicomputer  relatively  quickly. 

All  the  modules  were  designed  to  be  independent,  with  low  coupling.  This 
helped  us  create  a  system  that  could  be  implemented  on  two  different  systems.  As  the 
final  alternative  is  selected,  only  the  automation  boundaries  and  the  timings  of  the 
system  will  probably  need  to  be  changed  in  the  design  documentation. 

2.  Iterative  Approach 

The  iterative  approach  also  was  very  successful  for  us.  Allowing  the  user  to 
see  the  progress  and  make  changes  throughout  the  project  enhanced  the 
communications  between  the  user  and  the  developers.  This  communication  is  very 
important  to  any  methodology  and  no  less  with  this  one. 

The  iterative,  prototyping  approach  proved  its  flexibility  when  the  users 
changed  to  a  new  accounting  system,  known  as  SABRS.  SABRS  changed  the  format 
of  the  input  data  for  CCA.  Although  not  major,  the  changes  demonstrated  the 
significance  of  built-in  flexibility  in  a  development  effort. 
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The  point  of  this  discussion  brought  out  by  the  structured  techniques  is  that 
the  final  system,  whether  prototype  or  production,  must  be  maintainable.  By  this  we 
mean  that  it  must  be  easily  adapted  and  modified  to  meet  the  changes  during  the 
iterative  approach  and  changes  in  user  requirements.  Therefore,  we  strove  to  ensure 
that  the  documentation  of  our  prototype  was  as  clear  and  as  understandable  as 
possible. 

3.  Communication 

Communication  is  not  directly  related  to  any  methodology,  but  is  a  key  factor 
in  any  analysis.  An  analyst  must  be  able  to  communicate  with  the  user.  During  our 
analysis  phase,  we  conducted  several  interviews.  After  focusing  on  a  decision,  budget 
control,  we  set  up  appointments  to  meet  with  various  the  budget  experts  within  the 
shipyard.  At  this  point  the  project  scope  had  not  been  fully  defined  and  we  were 
looking  for  general  information  and  procedures  on  the  budgeting  process.  As  system 
analysts  in  an  interview  situation,  we  quickly  found  ourselves  on  the  receiving  end  of 
several  questions.  Instead  of  doing  the  interviewing  we  were  being  interviewed.  We 
lost  control  of  the  initial  interview  and,  even  though  they  were  still  cooperative,  we 
initially  lost  the  interest  of  a  potential  user  of  a  DSS. 

The  lessons  learned  from  this  interview  were  many.  Interviews,  especially 
initial  meetings,  must  be  carefully  planned.  A  brief  summary  of  the  questions,  or  the 
type  of  questions  that  we  were  going  to  ask  presented  to  the  user  prior  to  the  interview 
would  have  been  a  much  better  way  begin.  The  problem  definition  should  have  been 
defined  better  prior  to  the  interview.  The  Term  DSS  was  also  used  freely,  which 
brought  connotations  of  wonderful  systems  that  have  all  the  answers.  Our  system  was 
a  pilot  project,  not  a  production  system,  and  this  fact  should  have  been  introduced  up 
front. 

We  found  that  our  interviews  with  the  users  were  tainted  by  our  unfamiliaritv 
and  our  own  preconceptions  of  what  they  wanted.  These  problems  were  largely  an 
outgrowth  of  our  inability  to  ask  the  right  questions,  our  lack  of  experience  with  the 
interview  process,  and  in  some  cases  our  incomplete  technical  knowledge.  Generally, 
our  abilities  and  interviews  grew  as  our  understanding  of  the  system  and  our  familiarity 
with  the  users  grew.  The  best  interviewing  technique  that  we  found  was  knowing 
ahead  of  time  what  to  ask,  and  asking  it  in  a  manner  that  does  not  cause  a  defensive 
response. 
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This  is  an  area  that  is  usually  glossed  over  by  most  authors  in  the  DSS  arena. 
Possibly  most  authors  do  not  perceive  a  need.  One  answer  might  be  that  most 
developers  do  not  think  they  will  make  those  "classical  types'  of  human  interaction 
errors.  To  many,  these  issues  may  seem  of  little  consequence.  Finally,  these 
development  efforts  are  completed  by  information  specialists  and  not  clinical 
psychologists.  Therefore,  the  tendency  is  to  deal  only  on  a  cursory  level  with  what  is 
not  very  tractable. 

4.  Remote  Site  Development 

Not  being  able  to  be  on-site  during  the  development  process  was  definitely  a 
liability.  This  fact  more  than  any  other  slowed  our  progress.  It  was  difficult  to  find 
time  to  consult  with  the  users,  and  the  distance  of  the  commute  precluded  conferring 
with  the  users  over  what  we  perceived  as  smaller  matters. 

On  a  couple  of  occasions  those  smaller  matters  were  a  lot  more  important 
than  we  had  thought.  Additionally,  a  better  job  of  analysis  could  have  been  done  if  we 
had  more  opportunities  to  consult  with  the  users.  For  example,  the  perception  of 
being  considered  outsiders  to  the  organization  might  have  been  reduced.  We  would 
urge  any  would  be  developers  to  spend  a  significant  and  consecutive  block  of  time  with 
the  users  if  at  all  possible. 

B.  RESULTS  FROM  CCA  PILOT  PROJECT 

Based  on  our  methodology  and  the  resulting  prototypes,  several  conclusions  and 
alternatives  can  be  drawn.  The  first  area  of  concern  is  the  data  extraction.  The  data 
for  the  system  must  be  extracted  from  SABRS.  This  extraction  system  is  the  key  for 
continuance  of  alternatives  based  on  this  project,  other  than  to  stop  any  further 
development  at  this  time.  The  worth  of  the  system  has  been  demonstrated,  making 
this  option  unlikely.  Once  the  data  base  is  extracted  a  repository  must  be  set  up. 

The  data  base  approach  is  essential  to  this  type  of  development.  A  file 
management  approach  is  too  limiting  and  unwieldy  for  systems  that  frequently  update 
information:  In  a  file  system,  either  data  files  must  be  overwritten  with  new  data,  or  if 
new  files  are  added  with  each  update,  the  application  program  must  be  altered  for  each 
new  file.  A  pure  file  system  of  data  management  is  useful  only  for  a  test  system,  not 
for  a  "real  world”  system. 

Therefore,  the  kernel  of  an  information  display  system  should  be  a  data  base 
management  system  (DBMS).  This  requirement  also  applies  to  DSS's.  The  DBMS 
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reduces  the  amount  of  coding  and  design  that  the  developers  must  use  to  build  a  DSS. 
The  capabilities  of  the  overall  system  can  be  quickly  enhanced  without  the  design  and 
programming  complexities.  Some  of  the  desired  capabilities  would  be  a  sophisticated 
command  language,  documentation  utilities,  easy  data  loading  and  deletion  utilities, 
user  control,  and  security  utilities.  The  flexibility  of  the  DBMS  is  an  outgrowth  of  the 
degree  of  capabilities  it  possesses.  Developers  only  need  to  design  interfaces  to  the 
DBMS. 

1.  Data  Base  Design 

When  designing  an  information  system,  a  data  reference  is  critical.  The  most 
flexible  data  base  system  that  we  recommend  is  a  relational  data  base.  A  relational 
data  base  can  offer  several  advantages  as  demonstrated  in  the  microcomputer 
implementation.  A  variety  of  information  can  be  selected  and  compared  from  different 
tables.  Calculations  can  be  made  on  the  data  at  the  data  base  level,  allowing  for  fewer 
intermediate  programs  to  be  necessary  for  formatting  or  scaling  of  data. 

The  relational  data  base  we  used  on  the  microcomputer  was  Oracle.  Oracle 
offers  several  advantages  to  a  system.  First,  Oracle  is  available  for  mainframe 
computer,  minicomputer,  and  microcomputer  use.  This  means  that  a  user  who  may 
have  access  to  both  a  minicomputer  and  a  microcomputer  needs  to  learn  only  one  data 
base  system  The  sharing  of  data  and  data  extraction  is  also  more  attractive  when  the 
data  base  systems  are  the  same.  Oracle's  command  language  is  easy  to  learn  by 
anyone  who  knows  a  programming  language.  In  fact,  Oracle's  command  language, 
SQL,  is  non- procedural  so  it  is  more  easily  learned  than  BASIC.  The  user  must  only 
understand  the  basic  constructs  of  SQL  and  the  logical  implementation  of  those 
constructs. 

Documentation  utilities  assist  the  user  in  the  development  of  the  data 
dictionary  for  the  particular  data  base  design.  With  them  the  user  can  obtain  the 
structure  of  the  tables  he  has  produced,  a  listing  of  the  various  tables  and  indices  he 
has  developed  (by  name,  structure  type,  and  filetype),  data  elements  (by  name,  type, 
source,  and  definition),  and  a  listing  of  the  data  structures  showing  the  particular 
elements  that  they  contain.  Oracle  only  provides  some  of  these.  For  the  sake  of 
clarity  we  created  the  tables  to  produce  these  definitions  for  our  system  in  the 
microcomputer  implementation. 

User  control  and  security  are  easily  implemented  through  Oracle.  Users  can 
create  views  and  determine  the  types  of  access  they  wish  to  assign  to  other  users  of 


their  data.  Additionally,  the  data  base  administrator  or  the  user  acting  as  the  data 
base  administrator  can  determine  the  types  of  access  all  users  will  have  to  the  data 
base. 

2.  Longterm  Data  Base  Considerations 

With  the  need  of  a  historical  data  base  clearly  identified,  the  use  of  the 
microcomputer  alone  does  appear  to  be  feasible.  The  amount  of  data  and  overhead  of 
a  DBMS  on  a  microcomputer  would  be  prohibitive.  Therefore,  an  extraction  system  is 
necessary  for  the  minicomputer.  Once  a  data  base  is  established  on  the  minicomputer, 
the  microcomputer  can  extract  the  data  for  a  particular  cost  center  as  needed  or  a  user 
could  use  a  system  implemented  on  the  minicomputer. 


VII.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

The  methodology  we  followed  was  a  task  organized  approach.  We  felt  that  no 
one  approach  of  the  major  authorities  on  DSS  development  was  complete  in  and  of 
itself.  The  task  organized  approach  allowed  for  structured  documentation  tools  to  be 
used  with  an  iterative  approach. 

The  iterative  approach  was  central  to  our  methodology.  Design  and 
implementation  must  be  accomplished  in  quick,  as  short  as  possible  cycles,  in  this 
iterative  approach.  This  allows  the  developer  to  interact  with  the  user,  to  obtain  rapid 
feedback  on  the  progress  and  the  direction  of  the  project.  Communication  is  very 
important  to  a  DSS  project. 

Often  the  problem  definition  in  a  DSS  cannot  be  as  precise  as  in  a  MIS  project. 
The  semistructured  or  unstructured  nature  of  DSS  projects  can  make  a  clear  cut 
problem  definition  impossible.  By  approaching  a  problem  that  is  not  very  well  defined 
in  quick,  rapid,  iterative  steps,  the  problem  will  become  clearer  as  the  iterations 
progress. 

The  proper  environment  must  be  established  before  a  DSS  can  be  initiated. 
When  initiating  a  DSS,  minimization  of  risk  is  crucial.  If  an  initial  project  is  not 
successful,  it  may  be  a  long  time  before  subsequent  attempts  at  a  DSS  are  made,  even 
if  a  DSS  is  needed. 

In  order  to  minimize  risks,  a  champion  or  strong  enthusiast  must  be  found.  This 
is  a  person  who  can  envision  the  benefits  of  a  DSS.  If  there  is  no  proponent  of  the 
system,  or  it  is  forced  on  someone,  the  iterative  approach  will  not  be  effective.  User 
relations  is  of  paramount  importance  and  must  be  established  immediately.  Being 
prepared  and  not  bringing  any  surprises  is  the  best  way  to  keep  your  relations  in  good 
standing. 

Once  the  enthusiast  is  found,  a  decision  must  be  focused  upon.  The  DSS  shouid 
focus  on  one  decision  or  one  problem.  This  limits  the  scope  and  allows  the  developer 
to  narrow  in  on  one  area.  A  user,  upon  hearing  the  term  DSS,  may  get  visions  of  a 
system  that  will  answer  his  every  question  within  seconds.  By  focusing  on  one 
decision,  the  developer  can  guide  the  user  through  the  project  without  building  false 
hopes  or  misleading  expectations. 
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Within  our  methodology,  we  utilized  structured  techniques  during  the  analysis 
and  design.  These  techniques  included  the  use  of  data  flow  diagrams,  structure  charts, 
and  a  data  dictionary.  We  feel  that  these  are  among  the  best  documentation  tools 
available  today.  The  use  of  these  tools  reduce  maintenance  costs  later.  Further 
development  is  also  made  easier  with  the  structured  documentation.  This  is  especially 
true  when  the  original  developers  are  not  going  to  be  involved  in  any  further 
development. 

When  the  enthusiast  is  found,  the  decision  is  identified  and  the  structured  tools 
of  analysis  and  design  are  ready,  Sprague  and  Carlson's  ROMC  approach  further 
focuses  the  effort  [Ref.  2].  Representations  let  the  developer  focus  on  the  displays  the 
user  desires,  the  logical  design.  With  the  representations,  the  data  and  data  base  must 
be  investigated  and  documented.  The  data  base  is  the  keystone  of  the  DSS. 
Operations  should  follow  easily  with  the  representations.  The  manipulation  of  data 
and  displays  are  the  required  operations.  Memory  aids  remind  the  user  of  what  needs 
to  be  done  or  what  can  be  done.  The  controls  for  the  system  can  then  be  designed  to 
interface  the  parts  into  a  functioning,  useful  system. 

During  our  iterative  steps,  we  began  a  similar  development  on  a  completely 
different  system.  Although  this  is  not  recommended  for  every  DSS  development,  it 
helped  us  focus  on  problems  that  we  had  been  overlooking  in  the  initial  prototype.  By 
using  the  same  design  documented  with  structured  techniques,  we  were  able  to  quickly 
develop  the  similar  system  on  a  microcomputer.  This  gave  us  the  opportunity  to 
compare  the  systems.  This  comparison  helped  identify  some  problems  on  both  systems 
that  may  not  have  been  identified  until  later  in  the  project. 

B.  RECOMMENDATIONS 

Mare  Island  Naval  Shipyard  has  several  alternatives  available  to  them  at  this 
point.  We  recommend  that  the  data  base  for  the  minicomputer  be  implemented.  This 
will  allow  a  better  comparison  between  the  minicomputer  and  the  microcomputer. 
Since  the  documentation  is  available  from  the  microcomputer  implementation  and  the 
design  of  the  data  base  is  complete  and  can  be  used  with  any  relational  or  data  base 
that  is  logically  relational,  this  step  should  encompass  only  20  manhours,  fewer  if  the 
programmer  is  familiar  with  the  tools.  Next,  or  even  concurrently,  the  extraction  of 
the  data  from  SABRS  must  be  completed.  The  extraction  of  the  data  is  not  a  trivial 
problem,  although  technically  it  is  feasible.  The  extraction  is  necessary  to  get  the  data 
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into  the  data  base  whether  it  is  on  the  minicomputer  or  the  microcomputer.  We 
estimate  the  data  extraction  from  SABRS  into  a  data  base  to  be  a  160  manhour  job. 
Our  estimate  is  based  on  our  work  with  this  project  and  not  on  any  previous  data 
extraction  experience. 

With  the  data  base  and  data  extraction,  data  integrity  and  accessibility  will  have 
to  be  defined.  Since  an  historical  data  base  is  desired,  the  data  base  should  not  be  able 
to  be  changed  by  the  normal  user.  This  can  be  accomplished  easily  in  a  data  base 
system  such  as  Oracle. 

Once  the  data  base  is  established  and  the  extraction  system  is  in  place,  several 
alternatives  must  be  decided  upon.  If  the  system  does  not  appear  to  be  feasible,  the 
project  can  be  stopped.  If  the  project  continues,  additional  cost  centers  can  be  added 
iteratively.  This  would  be  a  safe  course  to  follow.  In  that  case,  the  control  programs 
would  have  to  be  modified  to  include  the  new  cost  centers,  and  the  graphics  modules 
for  each  new  graph  would  need  to  be  written.  These  would  be  the  modules  that  are 
appended  onto  the  main  module  for  each  graph. 

The  feasibility  of  tying  CCA  in  with  SABRS  is  another  possibility.  SABRS  offers 
the  user  a  "what  iT  capability.  If  SABRS  could  be  integrated  with  the  graphics  of 
CCA,  a  more  powerful  DSS  would  result  at  a  minimal  cost.  The  difficulty  and 
compatibility  of  the  systems  should  be  determined  when  the  extraction  of  the  data  is 
accomplished. 

Whether  the  minicomputer  implementation  or  the  microcomputer 
implementation  is  better  is  another  question  that  must  be  answered.  A 
microcomputer  should  not  be  the  repository  for  a  large  historical  data  base.  However, 
a  microcomputer  could  be  used  as  the  workspace  for  the  decision  maker.  This  would 
allow  the  decision  maker  the  opportunity  to  change  his  data  as  he  wishes  without 
affecting  the  centralized  data  repository.  Microcomputers  allow  the  user  to  view  the 
graphics  at  his  desk,  where  the  minicomputer  CCA  would  require  a  graphics  terminal 
or  a  hard  copy  to  be  created  for  the  decision  maker. 

The  minicomputer  should  be  the  repository  for  an  historical  data  base.  This  will 
simplify  the  extraction  problem,  from  minicomputer  to  minicomputer.  The  graphics 
modules  on  the  minicomputer  are  easier  to  create  and  maintain,  and  a  sophisticated 
user  can  learn  TEL-A-GRAF  at  the  command  level,  creating  his  own  graphics.  This  is 
much  more  difficult  on  the  microcomputer.  The  graphics  on  the  microcomputer  are 
written  in  C  and  are  not  written  in  a  command  language  style  like  TEL-A-GRAF. 
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C.  SUMMARY 

The  best  way  to  approach  a  DSS  problem  is  with  a  DSS  methodology.  An 
iterative  approach  that  uses  the  tools  of  structured  analysis  and  design  provides  the 
developer  with  the  best  of  both  worlds.  The  necessary  documentation  for  a  project  is 
completed  and  the  short  cycles  of  the  iterative  approach  help  to  promote 
communications. 

Mare  Island  Naval  Shipyard  should  complete  the  data  base  implementation  and 
the  data  extraction  system.  Expanding  that  system  to  include  all  the  cost  centers, 
iteratively,  one  at  a  time,  is  a  minimal  risk  alternative.  Interfacing  CCA  directly  with 
SABRS  would  be  another  inexpensive  alternative.  Whether  the  networked 
minicomputers  or  the  microcomputers  are  most  desirable  to  a  decision  maker  is  still 
questionable.  Perhaps  it  should  be  left  to  the  individual  decision  maker  to  decide. 

Further  research  is  indicated  in  the  area  of  data  extraction.  The  usefulness  of  the 
microcomputers  in  the  offices  in  five  years  is  another  research  question  that  can  be 
investigated.  Finally,  the  direction  that  the  DSS  should  take  after  the  successful 
implementation  of  the  CCA  is  an  important  area  for  follow-on  research.  This  would 
include  an  overall  design  of  «  DSS  fo r  rhe  Shipyard. 


APPENDIX  A 

STRUCTURED  SPECIFICATION 


1.  DATA  FLOW  DIAGRAM 

Data  flow  diagrams  show  the  "flow  of  data,  not  of  control."  The  symbols  used 
are  [Ref.  4:  p.  40]: 

1.  The  named  vector  (called  a  data  flow),  which  portrays  a  data  path. 

2.  The  bubble  (called  a  process),  which  portrays  transformation  of  data. 

3.  (Two  parallel  straight  lines)  which  portray  a  file  or  data  base. 

4.  The  box  (called  a  source  or  sink),  which  portravs  a  net  originator  or  receiver  of 
data  -  typically  a  person  or  an  organization  outside  the  domain  of  our  study. 

"The  Data  Flow  Diagram  is  documentation  of  a  situation  from  the  point  of  view  of  the 

data."  [Ref.  4:  p.  41]  It  will  provide  the  user  a  clear  understanding  of  the  present 

situation,  and  also  the  data  required  for  the  operation  of  the  system.  In  addition,  any 

errors  in  the  system  description  can  be  more  easily  identified  by  other  analysts. 

The  Data  Flow  Diagram  is  developed  hierarchically.  In  this  case  the  Top  Level 

diagram  is  in  Table  4,  the  First  Level  diagram  is  in  Table  5,  and  the  Second  Level 

diagram  cf  Process  1.0,  of  the  First  Level,  is  in  Table  6 

2.  MINISPECIFICATION 

We  were  not  concerned  with  the  exact  details  of  how  the  users  accomplished  the 
processes  in  the  Data  Flow  Diagram.  The  primary  consideration  was  to  get  a  general 
idea  of  what  was  going  on,  model  it,  and  attempt  to  develop  a  system  that  would  assist 
them. 

1.1  Select  Data 

1.  Gather  Budget  Input  Reports  provided  by  the  Comptroller  Department. 

2.  Select  the  data  to  be  used  for  the  desired  report. 

1.2  Insertion  of  data 

1.  Input  the  selected  data  to  a  data  fiie. 

2.  The  extracted  data  is  used  to  prepare  the  desired  report. 

2.0  Prepare  Reports 

1.  Input  the  management  query 

2.  Identify  the  type  of  report  that  will  answer  the  query. 

3.  Determine  if: 


TABLE  4 

TOP  LEVEL  DATA  FLOW  DIAGRAM 


*  Extracted  data  from  budget  input  reports  will  be  needed,  or 

*  Overhead  expenses  (cost  class),  or 

*  Actual  to  budget  comparison  will  support  the  report  selected. 

4.  Manipulate  and  format  the  input  data  as  requested  in  the  management  query 

5.  Provide  query  response  to  management. 

3.0  Prepare  Budget 

1.  Identify  Comptroller  budget  constraints 

2.  Identify  MEIO  requirements  and  constraints. 


Management 


TABLE  5 

FIRST  LEVEL  DATA  FLOW  DIAGRAM 
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TABLE  6 

SECOND  LEVEL  DATA  FLOW  DIAGRAM  OF  PROCESS  1.0 


3.  Request  and  identify  budget  request  inputs  within  MEIO. 

4.  Develop  MEIO  overhead  expenses  (cost  class). 

5.  Obtain  management  approval  for  the  budget. 

6.  Submit  to  the  Comptroller. 

4.0  Monitor  Budget  Performance 

1.  Analyze  extracted  data  from  SBR-22A  and  SBR-22B. 

2.  Determine  progress  and  errors,  if  any. 

3.  Report  to  management  if  requested. 

3.  DATA  DICTIONARY 

This  section  provides  a  rigorous  description  of  the  data  that  is  depicted  in  the 
Data  Flow  Diagram.  Before  the  completion  of  this  section  we  had  only  a  cursory 
understanding  of  the  data  involved.  The  disciplined  analysis,  which  involved  breaking 
larger  data  flows  into  data  elements,  brought  a  great  deal  of  clarity  to  our 
understanding  of  the  data. 

The  Data  Dictionary  is  organized  alphabetically  to  assist  the  reader  in  locating 
particular  documents  or  data  elements. 

ACQUISITION  OF  MINOR  PROPERTY  (6S)  = 


•COST  OF  PURCHASED  OR 
MANUFACTURED  MINOR  PROPERTY, 

WHICH  IS  DEFINED  AS  THOSE  COSTING 
LESS  THAN  SI 000  • 

ACTUAL  MATERIAL  AMOUNT  - 

•  TOTAL  DOLLAR  AMOUNT  OF  MATERIAL  COSTS 
INCURRED  TO  DATE  WITHIN  A  COST  FUNCTION  • 

ACTUAL  OT  HOURS  * 

•  OVERTIME  MANHOURS  CHARGED  TO 
DATE  WITHIN  A  COST  FUNCTION  • 

ACTUAL  OT  LABOR  AMOUNT  - 

•  TOTAL  DOLLAR  AMOUNT  OF  OVERTIME  LABOR 
CHARGED  TO  DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  OT  M/P/D  = 

•  OVERTIME  MAN  PER  DAY  ACTUALLY  INCURRED  TO 

DATE  WITHIN  A  COST  FUNCTION  • 

ACTUAL  OTHER  = 

•  TOTAL  DOLLAR  AMOUNT  OF  OTHER 
INCURRED  TO  DATE  WITHIN  A  COST  FUNCTION  • 

ACTUAL  ST  HOURS  = 

*  STRAIGHT  TIME  MANHOURS  CHARGED  TO 
DATE  WITHIN  A  COST  FUNCTION  • 

ACTUAL  ST  LABOR  AMOUNT  = 

•  TOTAL  DOLLAR  AMOUNT  OF  STRAIGHT  TIME  LABOR 

CHARGED  TO  DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  ST  M/P'D  = 

•  STRAIGHT  MAN  PER  DAY  ACTUALLY  INCURRED  TO 

DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  TOTAL  AMOUNT  = 

*  TOTAL  DOLLAR  AMOUNT  INCURRED  FOR  A  COST 


FUNCTION  * 


ADMINISTRATION  (9112)  - 

*  ALL  LABOR  AND  OTHER  COSTS  IDENTIFIABLE  TO  THE 
ADMINISTRATION  OF  THE  DATA  PROCESSING  OFFICE  AND 
OVERHEAD  COSTS  NOT  ASSIGNABLE  TO  OTHER 
FUNCTIONAL  SUBDIVISIONS  * 


AVE  OT  RATE  « 

*  AVERAGE  HOURLY  RATE  FOR  OVERTIME  (BASED 
ON  INDIVIDUAL  RATES)  * 

AVERAGE  BASE  * 

*  AVERAGE  HOURLY  RA  IE  ACCELERATED  BY  32-1/2%  TO 
ACCOUNT  FOR  BENEFITS  AND  LEAVE  * 

BUDGET  CONSTRAINTS  = 

*  CONSTRAINTS  SET  BY  THE  SHIPYARD  COMPTROLLER  (IE. 
ANNUAL  LEAVE  WILL  NOT  EXCEED  14%)  * 

BUDGET  REQUEST  INPUTS  = 

*  MANAGEMENT  REQUESTS  FOR  INCLUSION  OF  PARTICULAR 
ITEMS  WITHIN  THE  DEPARTMENTAL  BUDGET  * 

BUDGET  VS  ACTUAL  PERFORMANCE  REPORT  (SBR-22A)  = 

ISSUE  DATE  +  DATA  DATE  + 

(COST  CENTER}  +  {COST  FUNCTION} 

+  (COST  CLASS}  +  {ST  HOURS}  + 

{OT  HOURS}  +  {ST  M/P/D}  +  {OT 
M/P/D}  +  {ST  LABOR}  +  {OT  LABOR} 

+  {MATERIAL  AMOUNT}  +  {OTHER  AMOUNT} 

+  {TOTAL  AMOUNT}] 

BUDGETED  MATERIAL  AMOUNT  = 

*  TOTAL  DOLLAR  AMOUNT  OF  MATERIAL 
BUDGETED  TO  BE  INCURRED  FOR  THE 
FISCAL  YEAR  WITHIN  A  COST  FUNCTION  * 

BUDGETED  OT  HOURS  = 


•  OVERTIME  MANHOURS  BUDGETED  FOR  THE  FISCAL 


YEAR  WITHIN  A  COST  FUNCTION  * 

BUDGETED  OT  LABOR  AMOUNT  - 

•  TOTAL  DOLLAR  AMOUNT  OF  OVERTIME  LABOR 
BUDGETED  FOR  THE  FISCAL  YEAR  TO  BE  INCURRED 
WITHIN  A  COST  FUNCTION  * 


BUDGETED  OT  M/P/D  - 

•  OVERTIME  MAN  PER  DAY  BUDGETED  FOR  THE 
FISCAL  YEAR  WITHIN  A  COST  FUNCTION  * 


BUDGETED  OTHER  - 

•  TOTAL  DOLLAR  AMOUNT  OF  OTHER 
BUDGETED  TO  BE  INCURRED  FOR  THE 
FISCAL  YEAR  WITHIN  A  COST  FUNCTION  * 


BUDGETED  ST  HOURS  - 

*  STRAIGHT  TIME  MANHOURS  BUDGETED  FOR  THE  FISCAL 
YEAR  WITHIN  A  COST  FUNCTION  * 

BUDGETED  ST  LABOR  AMOUNT  - 

*  TOTAL  DOLLAR  AMOUNT  OF  STRAIGHT  TIME  LABOR 
BUDGETED  FOR  THE  FISCAL  YEAR  TO  BE  INCURRED 
WITHIN  A  COST  FUNCTION  * 

BUDGETED  ST  M/P/D  - 

*  STRAIGHT  MAN  PER  DAY  BUDGETED  FOR  THE 

FISCAL  YEAR  WITHIN  A  COST  FUNCTION  * 

BUDGETED  TOTAL  AMOUNT  = 

*  TOTAL  DOLLAR  AMOUNT  BUDGETED  FOR  THE 

FISCAL  YEAR  FOR  A  COST  FUNCTION  * 

CATEGORY  TITLE  =  *  FUNCTION  COST  CLASS  * 

CONSUMEABLE  SUPPLIES  (12)  = 

*  MATERIAL  COSTS  OF  CONSUMEABLE. 
REUSABLE.  AND  MINOR  NON-CONSUMEABLE 


SUPPLIES  AND  MATERIALS  NOT 
OTHERWISE  CHARGEABLE  TO  ANOTHER 
COST  CLASS,  OR  AS  DIRECT  MATERIAL 
TO  PRODUCTIVE  JOB  ORDERS  * 

CONSUMEABLE  SUPPLIES  AND  INSTALLATION  (97)  - 

*  COST  OF  CONSUMEABLE  SUPPLIES  RELATED  TO 
THE  ADP  FUNCTION;  ALSO  CHARGED  WITH  IN- 
HOUSE  COSTS  ASSOCIATED  WITH  THE 
INSTALLATION  OF  ADP  MINOR  PROPERTY  * 

CONTRACTUAL  SERVICES  (96)  - 

*  COSTS  OF  CONTRACTUAL  SERVICES  (FOR 
EXAMPLE,  TIME  SHARING  OR  DATA  ENTRY 
SUPPORT)  OTHER  THAN  THOSE  SERVICES 
SPECIFIED  AS  CHARGED  TO  COST  CLASSES 
94  AND  95  * 

CONTROL  AND  SCHEDULING  (9116)  - 

*  ALL  LABOR  AND  OTHER  COSTS 
IDENTIFIABLE  AS  OVERHEAD  OF  THE 
CONTROL  AND  SCHEDULING 
FUNCTION,  EXCEPT  FOR  COSTS 
IDENTIFIED  TO  COST  FUNCTION 
9119  * 

COST  CENTER  =  COST  CENTER  NUMBER  +  COST  CENTER  NAME 

COST  CENTER  NAME  - 

(DATA  PROCESSING  OFFICE/MANAGEMENT 
ENGINEERING  OFFICE] 

COST  CENTER  NUMBER  =  [9|l|l/4  0] 

COST  CLASS  (NUMBER)  = 

(SUPERVISION  GRADED  (02)|  NON-SUPERVISION 
GRADED  (03)|  SHOP  GENERAL  (04)|  MATERIAL 
(04)|  CONSUMEABLE  SUPPLIES  (12)  UNALLOCATED 


(19)1  TRAVEL  (30)| 

DUPLICATING/MICROFICHE/ILLUSTRATORS  (33) 
TRAINING  (39)  ACQUISITION  OF  MINOR  PROPERTY 
(68)|  SUPERVISION  GRADED  (91)|  NON¬ 
SUPERVISION,  ANALYSIS  AND  PROGRAMMING  (92)1 
NON-SUPERVISION  GRADED,  OTHERS  (93)  RENTAL 
AND  COMMUNICATION  (94)|  MAINTENANCE  (95)| 
CONTRACTUAL  SERVICES  (96)  CONSUMEABLE  SUPPLIES 
AND  INSTALLATION  (97)|  MINOR  PROPERTY  (98)| 
TRAINING  (99)] 

COST  CLASS  NO.  -  *  COST  CLASS  NUMBER  * 

COST  FUNCTION  * 

(MIS  IMPROVEMENT  ADP  PROGRAMS  (91 11){ 
ADMINISTRATION  (9U2){  PROGRAMMING  (91 13){ 
RENT  OF  EQUIPMENT  AND  INSTALLATION  COST  (91 14){ 
OPERATIONS  (9115){  CONTROL  AND  SCHEDULING  (9U6){ 
EDP  OPERATIONS  (9117)|  EAM  OPERATIONS  (9118)1 
NAVSHIPS  NSY  MIS  PROGRAM  (9119){  MANAGEMENT 
ENGINEERING  OFFICE  ADMINISTRATION  (9142)( 
MANAGEMENT  SYSTEM  SUPPORT  (9143){ 
QC/PRODUCTIVITY  (9144){] 

DATA  DATE  -  *  EFFECTIVE  DATE  OF  DATA  USED  FOR  THE  REPORT  * 

DEPARTMENTAL  SUMMARY  BY  COST  CLASS  AND  SHIPYARD  TOTAL 
(BUDGET  VS  ACTUAL)* 

ISSUE  DATE  +  DATA  DATE  + 

(COST  CENTER}  +  (COST  CLASS}  + 

(ST  HOURS}  4-  (OT  HOURS}  -  (ST  M/P'D} 

-  (OT  M  P/D}  +■  }ST  LABOR]  4  (OT  LABOR} 

+  (MATERIAL  AMOUNT}  +  (OTHER  AMOUNT} 

+  (TOTAL  AMOUNT}] 

DUPLICATING  MICROFICHE,  ILLUSTRATORS  (33)  = 

*  COST  OF  ALL  PURCHASED 


PRINTING,  REPRODUCTION  AND 
DUPLICATING  WHEN  NOT  CHARGEABLE 
TO  A  PARTICULAR  CUSTOMER  ORDER 

EAM  OPERATIONS  (9118)  - 

*  ALL  LABOR  AND  OTHER  COSTS  IDENTIFIABLE 

AS  OVERHEAD  OF  THE  EAM  OPERATIONS 
FUNCTION,  EXCEPT  FOR  COSTS  IDENTIFIED  TO 
COST  FUNCTION  9119  • 

EDP  OPERATIONS  (9117)  - 

*  ALL  LABOR  AND  OTHER  COSTS  IDENTIFIABLE 

AS  OVERHEAD  OF  THE  EDP  OPERATIONS 
FUNCTION,  EXCEPT  FOR  COSTS  IDENTIFIED  TO 
COST  FUNCTION  9119  * 

FUNDS  ADMIN  (CODE  NO.)  - 

•CODE  OF  FUNDS  ADMINISTRATOR  FOR 
MANAGEMENT  ENGINEERING  AND 
INFORMATION  OFFICE  (014,016)  • 

INPUT  DATA  - 

ICOST  CENTER,' FUNCTION  BUDGET  VS  ACTUAL 
PERFORMANCE  REPORT  (SBR-22A)|  DEPARTMENTAL 
SUMMARY  BY  COST  CLASS  AND  SHIPYARD  TOTAL 
(BUDGET  VS  ACTUAL)  (SBR-22B)J 

ISSUE  DATE  -  •  DATE  REPORT  WAS  SUBMITTED  TO  USER  * 

MAINTENANCE  (95)  -  *  MAINTENANCE  COSTS  OF  ADP  EQUIPMENT  * 

MANAGEMENT  ENGINEERING  OFFICE  (9142)  = 

*  ALL  LABOR  AND  OTHER 
COSTS  IDENTIFIED  AS  OVERHEAD  OF 
THE  DIRECTOR  OF  MANAGEMENT 
ENGINEERING  OFFICE,  AND  OTHER 
costs  which  are  not  assignable  to 


ANOTHER  FUNCTION  OF  THE  MEO  * 

MANAGEMENT  SYS  SUPPORT  (9143)  - 

*  ALL  LABOR  AND  OTHER  COSTS  FOR 
PERFORMING  THE  MEO  FUNCTION  * 

MANAGER  QUERY  - 

*  AD  HOC  QUERIES  CONCERNING  BUDGET  PREPARATION, 
CONTROL  AND  VARIANCE  ANALYSIS  * 

MATERIAL  (04)  -  *  SYNONYM  FOR  SHOP  GENERAL  * 

MATERIAL  AMOUNT  - 

[BUDGETED  MATERIAL  AMOUNT  +  ACTUAL  MATERIAL 
AMOUNT  +  PERCENTAGE  OF  MATERIAL  AMOUNT  + 
MATERIAL  VARIANCE] 

MATERIAL  VARIANCE  - 

*  ACTUAL  OT  LABOR  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OT  LABOR  THAT  SHOULD  HAVE  BEEN 
EXPENDED  TO  DATE  (ACTUAL  MINUS  THE  PRODUCT 
OF  THE  PERCENT  OF  THE  PERIOD  ELAPSED  AND 

BUDGET)  * 

MEIO  REQUIREMENTS  AND  CONSTRAINTS  = 

*  CONSTRAINTS  SET  BY  THE  MEIO  MANAGEMENT  * 

MEN  GROSS  =  *  TOTAL  NUMBER  OF  PERSONNEL  * 

MEN  IVB  = 

*  COMPUTED  TOTAL  NUMBER  OF  PERSONNEL  MINUS 
THOSE  ON  LEAVE  * 

MEN  OTHER  =  *  PERSONNEL  BORROWED  BETWEEN  COST  CENTERS  * 
MEN  TOTAL  =  *  THE  TOTAL  OF  MEN  IVB  AND  MEN  OTHER  * 


MINOR  PROPERTY  (98)  = 

*  PURCHASED  COSTS  OF  ADP  MINOR  PROPERTY.  WHEN 
THAT  COST  IS  LESS  THAN  SI 000  OR  THE  ITEM  HAS 


A  USEFUL  LIFE  OF  TWO  YEARS  OR  LESS  REGARDLESS 

OF  COST  * 

NAVSHIPS  NSY  MIS  PROGRAM  (9119)  « 

•  ALL  LABOR  AND  OTHER  COSTS 
IDENTIFIABLE  TO  DEVELOPMENT 
AND  MAINTENANCE  OF  NAVSEA 
NAVSHIPYD  MIS  ASSIGNMENTS  * 

NON-SUPERVISION  GRADED  (03)  - 

*  INDIRECT  LABOR  COST  OF  NON- 
SUPERVISORY  GRADED  PERSONNEL  * 

NON-SUPERVISION,  ANALYSIS  AND  PROGRAMMING  (92)  - 

*  LABOR  COSTS  OF  PERSONNEL  WHILE 
ENGAGED  IN  ADP  ANALYSIS  AND  PROGRAMMING  * 

NON-SUPERVISION  GRADED,  OPERATIONS  (9115)  « 

*  ALL  LABOR  AND  OTHER  COSTS  IDENTIFIABLE  AS 
OVERHEAD  FOR  SUPERVISING  AND  ADMINISTERING 

THE  OPERATIONS  DIVISION,  EXCEPT  FOR  COST 
IDENTIFIED  TO  COST  FUNCTION  9119  * 

OT  HOU  RS  = 

[BUDGETED  OT  HOURS  +  ACTUAL  OT  HOURS  -  PERCENTAGE 
OF  OT  HOURS  +  OT  HOURS  VARIANCE] 

OT  HOURS  VARIANCE  = 

*  ACTUAL  OT  HOURS  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OT  HOURS  THAT  SHOULD  HAVE  BEEN 

EXPENDED  TO  DATE  (ACTUAL  MINUS  THE  PRODUCT 
OF  THE  PERCENT  OF  THE  PERIOD  ELAPSED  AND 

BUDGET)  * 

OT  LABOR  AMOUNT  = 

[BUDGETED  OT  LABOR  AMOUNT  +  ACTUAL  OT  LABOR 
AMOUNT  +  PERCENTAGE  OF  OT  LABOR  AMOUNT  4-  OT 

LABOR  VARIANCE] 


OT  LABOR  VARIANCE  - 

*  ACTUAL  OT  LABOR  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OT  LABOR  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 

OF  THE  PERIOD  ELAPSED  AND  BUDGET) 

OT  M/P/D  - 

(BUDGETED  OT  MAN  PER  DAY  +  ACTUAL  OT  MAN  PER 
DAY  +  PERCENTAGE  OF  OT  M/P /D  +  OT  M/P/D 

VARIANCE] 

OT  M/P'D  VARIANCE  - 

*  ACTUAL  OT  M/P/D  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OT  M/P/D  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 

OF  THE  PERIOD  ELAPSED  AND  BUDGET) 

OTHER  COSTS  - 

*  OTHER  BUDGETED  COSTS  INCLUDING  PRIMARILY 

CONTRACTS  AND  TRAVEL  * 

OTHER  (PRIMARILY  CONTRACTS  AND  TRAVEL)  - 

[BUDGETED  OTHER  +  ACTUAL  OTHER  +  PERCENTAGE  OF 
OTHER  +  OTHER  VARIANCE] 

OTHER  VARIANCE  = 

*  ACTUAL  OTHER  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OTHER  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 
OF  THE  PERIOD  ELAPSED  AND  BUDGET) 

OTHERS  (OPERATIONS)  (93)  = 

*  LABOR  COSTS  OF  PERSONNEL  (OTHER 
THAN  THOSE  SPECIFIED  AS  CHARGED  TO 
COST  CLASS  91  AND  92)  WHOSE 
PRINCIPAL  DUTIES  ARE  DIRECTLY 
RELATED  TO  CONDUCTING  OR  SUPPORTING 


'*•  *1  ‘i*  'if  'tf 
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THE  ADP  FUNCTION  * 

OVERHEAD  EXPENSES  BY  COST  CLASS  - 

[FUNDS  ADMIN  (CODE  NO.)  +  COST 
CENTER  NO.  +  STRAIGHT  TIME  WORKING 
HOURS  +  {COST  CLASS  NO.}  +  {CATEGORY 
TITLE}  +  (MEN  GROSS}  +  {MEN  IVB}  +  (MEN 
OTHER}  +  {MEN  TOTAL}  +  {STRAIGHT  HOURS} 
+  {AVERAGE  BASE}  +  {STRAIGHT  LABOR  SS}  + 
{OVT  MEN}  +  {OVT  HOURS}  +  {AVE  OT  RATE}  + 
{OVT  LABOR}  +  {TOTAL  MNDAY}  +  TOTAL 
HOURS}  +  (TOTAL  LABOR  SS}  +  TOTAL  MATER} 
+  {OTHER  COSTS}  +  {TOTAL  COST}  +  {TOT 
EXPEN}] 

OVT  HOURS  -  *  NUMBER  OF  OVERTIME  HOURS  * 


OVT  LABOR 


*  PRODUCT  OF  OVERTIME  HOURS  AND  AVERAGE 
OVERTIME  RATE  * 


OVT  MEN  -  *  PERSONNEL  ON  OVERTIME  (NOT  USED)  * 

PERCENTAGE  OF  MATERIAL  AMOUNT  - 

*  PERCENTAGE  OF  BUDGETED  MATERIAL 
AMOUNT  INCURRED  TO  DATE  WITHIN  A 
COST  FUNCTION  * 

PERCENTAGE  OF  OT  HOURS  = 

*  PERCENTAGE  OF  BUDGETED  TOTAL 
OVERTIME  TIME  MANHOURS  ACTUALLY  INCURRED  TO 
DATE  WITHIN  A  COST  FUNCTION  * 

PERCENTAGE  OF  OT  LABOR  AMOUNT  - 

*  PERCENTAGE  OF  BUDGETED  OVERTIME  LABOR 


AMOUNT  INCURRED  TO  DATE  * 


PERCENTAGE  OF  OTHER  = 


*  PERCENTAGE  OF  BUDGETED  OTHER 


H 


AMOUNT  INCURRED  TO  DATE  WITHIN  A 
COST  FUNCTION  * 

PERCENTAGE  OF  ST  HOURS  = 

*  PERCENTAGE  OF  BUDGETED  TOTAL  STRAIGHT 

TIME  MANHOURS  ACTUALLY  INCURRED  TO 
DATE  WITHIN  A  COST  FUNCTION  * 

PERCENTAGE  OF  ST  LABOR  AMOUNT  = 

•PERCENTAGE  OF  BUDGETED  STRAIGHT  TIME  LABOR 
AMOUNT  INCURRED  TO  DATE  • 

PERCENTAGE  OF  TOTAL  AMOUNT  = 

•PERCENTAGE  OF  BUDGETED  TOTAL 
DOLLAR  AMOUNT  INCURRED  TO  DATE 
WITHIN  A  COST  FUNCTION  * 

PROGRAMMING  (9113)  = 

•  ALL  LABOR  AND  OTHER  COSTS  IDENTIFIABLE  AS 
OVERHEAD  OF  THE  ANALYSIS  AND  PROGRAMMING 

DIVISION,  EXCEPT  FOR  COSTS  IDENTIFIED  TO 
COST  FUNCTION  9119  • 

QC/PRODUCTIVITY  (9144)  - 

*  ALL  LABOR  AND  OTHER  COSTS  ASSOCIATED 
WITH  THE  PRODUCTIVITY  IMPROVEMENT  PROGRAM  • 

QUERY  RESPONSE  = 

*  BUDGET  ANALYST  RESPONSE  TO  AD  HOC  QUERIES* 

RENTAL  AND  COMMUNICATION  (94)  = 

•  ALL  ADP  EQUIPMENT  RENTALS, 
INCLUDING  RELATED  ANCILLARY 
COMMUNICATION  EQUIPMENT  RENTALS; 

ALSO  CHARGED  WITH  TELEPHONE 
COMMUNICATION  SERVICE  COSTS 
ASSOCIATED  WITH  UNIQUE  OR 
DEDICATED  LINES  USED  IN  SUPPORT 
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THE  HARE  ISLAND  NAVAL  SHIPVARD(U>  NAVAL  POSTGRADUATE 
SCHOOL  HONTEREV  CA  H  F  RALL  ET  AL.  HAR  87 

UNCLASSIFIED  F7G  371 

274  ^ 

NL 

■ 

— 

MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURIAU  Of  STANDARDS  1%3  A 


OF  THIS  EQUIPMENT  * 


RENT  OF  EQUIPMENT  AND  INSTALLATION  COST  (9114)  - 

*  ALL  COSTS  OF  ADP/EAM  RENTAL  AND  MAINTENANCE 
INCLUDING  THE  COST  OF  RENTING  TERMINALS 
EXCLUDING  MINICOMPUTERS  CHARGEABLE  TO 
BENEFITING  COST  CENTERS  AND  COST  CLASS  37  * 

SHOP  GENERAL  (04)  - 

*  INDIRECT  COSTS  OF  SUPPLIES  AND  LABOR  OF 
NON-SUPERVISORY  UNGRADED  PERSONNEL  WHILE 

ENGAGED  IN  WORK  OR  A  GENERAL  OVERHEAD 
NATURE  BUT  NOT  OTHERWISE  CHARGEABLE  TO 
ANOTHER  COST  CLASS  OR  AS  DIRECT  LABOR  * 

ST  HOURS  - 

[BUDGETED  ST  HOURS  +  ACTUAL  ST  HOURS  +  PERCENTAGE 
OF  ST  HOURS  +  ST  HOURS  VARIANCE] 

ST  HOURS  VARIANCE  - 

*  ACTUAL  ST  HOURS  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  ST  HOURS  THAT  SHOULD  HAVE  BEEN 

EXPENDED  TO  DATE  (ACTUAL  MINUS  THE  PRODUCT 
OF  THE  PERCENT  OF  THE  PERIOD  ELAPSED  AND 

BUDGET)  * 

ST  LABOR  AMOUNT  - 

[BUDGETED  ST  LABOR  AMOUNT  +  ACTUAL  ST  LABOR 
AMOUNT  +  PERCENTAGE  OF  ST  LABOR  AMOUNT  +  ST 

LABOR  VARIANCE] 

ST  LABOR  VARIANCE  - 

*  ACTUAL  ST  LABOR  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  ST  LABOR  THAT  SHOULD  HAVE  BEEN 

EXPENDED  TO  DATE  (ACTUAL  MINUS  THE  PRODUCT 
OF  THE  PERCENT  OF  THE  PERIOD  ELAPSED  AND 

BUDGET)  * 


£ 


* 


> 
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ST  M/P/D 


[BUDGETED  ST  MAN  PER  DAY  +  ACTUAL  ST  MAN  PER  DAY 
+  PERCENTAGE  OF  ST  M/P/D  +  ST  M/P/D  VARIANCE] 


ST  M/P/D  VARIANCE  - 

*  ACTUAL  ST  M/P/D  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  ST  M/P/D  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 
OF  THE  PERIOD  ELAPSED  AND  BUDGET) 

STRAIGHT  HOURS  -  *  SYNONYM  FOR  STRAIGHT  TIME  WORKING 

HOURS  * 

STRAIGHT  LABOR  SS  - 

*  PRODUCT  OF  AVERAGE  BASE  AND  STRAIGHT  HOURS  * 

STRAIGHT  TIME  WORKING  HOURS  - 

*  LABOR  HOURS  WITH  LEAVE 
SUBTRACTED  (NUMBER  OF  HOURS  * 

2008  HOURS  AVAILABLE  IN  A  YEAR)  * 

SUPERVISION  GRADED  (02)  - 

•  INDIRECT  LABOR  COST  OF  GRADED 
SUPERVISORY  PERSONNEL  WHILE  ENGAGED  IN 
THE  SUPERVISION  OF  OTHERS  * 

SUPERVISION  GRADED  (91)  - 

*  LABOR  COST  OF  PERSONNEL  WHILE  ENGAGED 
IN  THE  SUPERVISION  AND  DIRECTION  OF 
PERSONNEL  PERFORMING  ADP  FUNCTIONS  * 


TOTAL  AMOUNT  - 

[BUDGETED  TOTAL  AMOUNT  +  ACTUAL  TOTAL  AMOUNT 

+  PERCENTAGE  OF 

TOTAL  AMOUNT  +  TOTAL 

VARIANCE] 


TOTAL  COSTS 


*  TOTAL  BUDGETED  COSTS  (SUM  OF  TOTAL  LABOR,  TOTAL 


MATER,  AND  OTHER  COSTS  * 

TOTAL  HOURS  -  *SUM  OF  ST  HOURS  AND  OT  HOURS  * 

TOTAL  LABOR  SS  - 

*  DOLLAR  SUM  OF  THE  PRODUCT  OF  ST  HOURS  AND  AVE 
BASE  AND  THE  PRODUCT  OF  OT  HOURS  AND  AVE  OT  RATE  * 

TOTAL  MATER  -  *  TOTAL  BUDGETED  MATERIAL  COST  * 

TOTAL  MNDAY  -  *  TOTAL  PERSONNEL  (OVERTIME  AND  MEN)  * 

TOTAL  VARIANCE  - 

*  ACTUAL  TOTAL  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  TOTAL  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 
OF  THE  PERIOD  ELAPSED  AND  BUDGET) 

TRAINING  (39)  « 

*  INDIRECT  EXPENSES  INCIDENT  TO  ORGANIZED 
TRAINING  PROGRAMS  EXCEPT  APPRENTICE  AND 
NUCLEAR  TRAINING  PROGRAMS  * 

TRAINING  (99)  - 

•  TRAINING  COSTS  IN  SUPPORT  OF  THE  ADP  FUNCTION  * 

TRAVEL  (30)  - 

*  COST  OF  APPROVED  TRAVEL,  INCLUDING  SUBSISTENCE, 
WHEN  NOT  CHARGEABLE  TO  A  PARTICULAR  CUSTOMER 
ORDER  OR  COST  CLASS  BY  TYPE  • 

UNALLOCATED  (CODING  REJECTS)  (19)  - 

•COSTS  WHICH  CANNOT  BE 
IDENTIFIED  WITH  A  CUSTOMER 
ORDER  OR  AN  ESTABLISHED 
EXPENSE  ACCOUNT  • 


4.  AUTOMATED  DATA  DICTIONARY 

a.  Method 

The  data  dictionary  is  automated,  although  it  is  not  an  integral  part  of  the 
Cost  Center  Analysis  system.  Instead  of  being  a  part  of  the  system,  it  explains  the 
various  parts  of  the  the  system.  This  data  dictionary  was  set  in  the  form  of  data  tables 
in  Oracle.  Although  some  of  this  information  can  be  generated  from  Oracle  system 
utilities,  it  was  felt  that  more  specific  information  was  necessary  for  this  system  s 
documentation. 

b.  Data  Representation 

The  following  tables  represent  two  information  tables.  These  are 
representative  of  the  structure  shown  in  the  system  data  structure  diagrams  (Bachman 
diagrams).  Although  this  system  was  designed  for  personnel  who  are  intimately 
familiar  with  the  Cost  Center  terminology,  we  attempted  to  explain  as  much  as 
possible  data  meanings  and  abbreviations.  This  was  done  to  facilitate  the  work  of 
followr-on  designers  and  implementors. 

In  addition,  there  are  live  systems  description  tables  which  provide  the  data 
base  structure.  These  make  up  a  ready  reference  for  follow-on  implementors,  reducing 
the  chances  of  misunderstanding. 

c.  Data  Maintenance 

This  data  dictionary  has  been  designed  for  an  extracted  data  base.  It  would 
be  kept  current  by  biweekly  downloads  from  the  shipyard's  Prime  Network.  As  such 
the  system  would  grow  to  considerable  size  by  the  end  of  the  fiscal  year. 

These  system  updates  would  not  change  the  structure  of  the  data  dictionary’  as 
depicted.  It  would  only  change  the  number  of  records  within  the  tables. 

d.  Data  Security 

Physical  security  controls  are  adequate  for  this  system.  Physical  internal 
controls  will  ensure  the  integrity  of  the  data  base.  These  controls  are  already  in  place 
within  the  oflice  workspaces. 

If  information  security  became  more  critical,  these  controls  could  be 
implemented  through  the  Oracle  DBMS,  by  using  passwords  and  controlling  access. 

e.  Back-up  and  Recovery 

This  is  provided  by  the  Oracle  DBMS  as  part  of  its  services  to  the  users. 
Oracle  uses  a  before  image  file  to  provide  the  recovery  information. 
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f.  Budget  Table  Structure 


UFI>  SELECT  *  FROM  COL  WHERE  TNAME  -  BUDGET' 


TNAME 


SCALE  NULLS 
BUDGET 

NOT  NULL 
BUDGET 

NOT  NULL 
BUDGET 

1  NULL 
BUDGET 

1  NULL 
BUDGET 

1  NULL 
BUDGET 

4  NULL 
BUDGET 

4  NULL 


COLNO  CNAME 
COLTYP  WIDTH 


l 

COST_FUN_NO 

CHAR 

4 

2 

COST_CL_NO 

CHAR 

2 

3 

ST 

HOURS 

NUMBER 

7 

4 

OT 

HOURS 

NUMBER 

7 

5 

ST 

LABOR 

NUMBER 

7 

6 

OT 

LABOR 

NUMBER 

11 

7 

MATERIAL 

NUMBER 

11 

100 


BUDGET 


8 

NUMBER 


11 


OTHER 


4  NULL 

g.  Expense  Table  Structure 

UFI>  SELECT  *  FROM  COL  WHERE  TNAME  -  EXPENSE' 

TNAME  COLNO  CNAME 

COLTYP WIDTH  WIDTH 

SCALE  NULLS 
EXPENSE 

NOT  NULL 
EXPENSE 

NOT  NULL 
EXPENSE 

NOT  NULL 
EXPENSE 

1  NULL 
EXPENSE 

1  NULL 

EXPENSE  6  ST 

NUMBER  11 

4  NULL 


5  OT 

NUMBER  7 


4  ST 

NUMBER  7 


2 

CHAR  2 

3 

DATE  8 


1 

CHAR  4 


COSTFUNNO 


COST_CL_NO 


DT 


HOURS 


HOURS 


LABOR 
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EXPENSE 


7 

NUMBER 


OT 


LABOR 


4  NULL 


EXPENSE 


4  NULL 


NUMBER 


EXPENSE 


NUMBER 


4  NULL 


h.  System  Files 


/.  System  File  Listing  Structure 


UFI>  SELECT  *  FROM  COL  WHERE  TNAME  -  FILES' 


TNAME 


SCALE  NULLS 


COLNO  CNAME 
COLTYP  WIDTH 


FILES 


CHAR  15 


NULL 


FILES 


CHAR  8 


NULL 


FILES 


CHAR  8 


NULL 


MATERIAL 


OTHER 


FILEID 


STRUCTYPE 


FILETYPE 


,  . 


FILES 

NULL 

4 

CHAR 

8 

LOCATION 

FILES 

NULL 

5 

CHAR 

9 

LASTMOD 

FILES 

NULL 

6 

CHAR 
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COMMENTS 

2.  System  File  Listing 

UFI>  SELECT  *  FROM  FILES; 

FILEID  STRUCTYP  FILETYPE  LOCATION  LASTMOD 
COMMENTS 

BUDGET  TABLE  DATA  D  DISK  ll-DEC-86 

CONTAINS  BUDGET  FOR  ST  HOURS,  OT  HOURS,  ST  LABOR,  OT  LABOR, 
MATERIAL  AND  OTHER 

EXPENSE  TABLE  DATA  D  DISK  ll-DEC-86 

CONTAINS  EXPENSES  FOR  HOURS,  LABOR,  MATERIAL  AND  OTHER  BY 
DATE 

BCF  INDEX  DATA  D  DISK  ll-DEC-86 

INDEX  BY  COST  FUNCTION  FOR  BUDGET  TABLE 

BCC  INDEX  DATA  D  DISK  ll-DEC-86 

INDEX  BY  COST  CLASS  FOR  BUDGET  TABLE 

ECF  INDEX  DATA  D  DISK  ll-DEC-86 

INDEX  BY  COST  FUNCTION  FOR  EXPENSE  TABLE 

ECC  INDEX  DATA  D  DISK  ll-DEC-86 
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INDEX  BY  COST  CLASS  FOR  EXPENSE  TABLE 


i.  Programs  and  Modules 


1.  Programs  Listing  Structure 


UFI>  SELECT  *  FROM  COL  WHERE  TNAME  -  PROG'; 


TNAME 


SCALE  NULLS 


PROG 


NULL 


PROG 


NULL 


PROG 


NULL 


PROG 


NULL 


PROG 


NULL 


COLNO  CNAME 
COLTYPWIDTH 


CHAR 


CHAR 


CHAR 


CHAR 


CHAR 


2.  Programs  and  Modules  of  the  System 


PROGID 


FULLID 


LANGUAGE 


LASTMOD 


COMMENTS 


UFl  >  SELECT  *  FROM  PROG; 
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i 


PROGID  FULLID 
COMMENTS 

CCA 


LANGUA  LASTMOD 


COST  CENTER  ANALYSIS 

C  Il-DEC-86 

MAIN  MODULE  CONTAINS  THE  THREE  MODULES  OF  THE  SYSTEM 


GRAPHICS  GRAPHIC  DISPLAY  OF 

C  ll-DEC-86 

ALLOWS  USER  TO  USE  DEVELOPED  GRAPHS 

COMDLEV  COMMAND 

C  Il-DEC-86 

ALLOWS  USER  TO  USE  ORACLE  AT  THE  COMMAND  LEVEL 


DATA 


LEVEL 


CCI 


COST 


CENTER 
C  ll-DEC-86 

MAIN  MENU  DRIVEN  SHELL  FOR  ORACLE 


INFORMATION 


UFI 

ORACLE  UTILITY 
BUD  EXP 


USER 


FRIENDLY 
C  ll-DEC-86 


INTERFACE 


BUDGET 


EXPENSES 


yS 

C  ll-DEC-86 

DISPLAY  AND  COMPARISON  ON  BUDGET  AND  EXPENSE  INFORMATION 


INDVDISP  INDIVIDUAL 

C  ll-DEC-86 

BUDGET  VS  EXPENSES  BY  LABOR,  MATERIAL  OR  OTHER 

GETBUD  BUDGET 

C  ll-DEC-86 

DISPLAYS  BUDGET  BY  COST  FUNCTION,  COST  CLASS 


DISPLAY 


SUMMARY 


TOBUDEXP 


TOTAL 


VS 


EXPENSE 


BUDGET 
C  ll-DEC-86 

SUMS  LABOR.  MATERIAL  AND  OTHER  FOR  BUDGET  AND  EXPENSES 
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a 


i 


a 


GETLAB  DISPLAY  LABOR 

C  ll-DEC-86 

BUDGET  VS  EXPENSE  BY  COST  FUNCTION/ COST  CLASS  FOR  LABOR 

COMMENTS 

GETHOUR  DISPLAY  HOURS 

C  ll-DEC-86 

BUDGET  VS  EXPENSE  BY  COST  FUNCTION/COST  CLASS  FOR  HOURS 

GETMAT  DISPLAY  MATERIAL 

C  ll-DEC-86 

BUDGET  VS  EXPENSE  BY  COST  FUNCTION, COST  CLASS  FOR  MATERIAL 

GETOTH  DISPLAY  OTHER 

C  ll-DEC-86 

BUDGET  VS  EXPENSE  BY  COST  FUNCTION,  COST  CLASS  FOR  OTHER 

SELFUN  SELECT  FROM  EMPLOYEE 

ORACLE  ll-DEC-86 

SELECT  FROM  BUDGET  BY  COST  FUNCTION 

GETTOTF  TOTAL  BY  COST  FUNCTION 

C  ll-DEC-86 

SUMS  BUDGET  AND  EXPENSES  BY  COST  FUNCTION 

GETTOTC  TOTAL  BY  COST  CLASS 

C  ll-DEC-86 

SUMS  BUDGET  AND  EXPENSES  BY  COST  CLASS 

GETTOTFC  TOTAL  BY  COST  FUNCTION/COST  CLASS 

C  ll-DEC-86 

SUMS  BUDGET  AND  EXPENSES  BY  COST  FUNCTION/COST  CLASS 

GETSUM  TOTAL  BY  COST  CENTER 

C  ll-DEC-86 

SUMS  BUDGET  AND  EXPENSES  FOR  THE  ENTIRE  COST  CENTER 
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SELHOUR  SELECT  FROM  BUDGET 

ORACLE  1  l-DEC-86 

SELECT  HOURS  FROM  BUDGET  TABLE 

SELLAB  SELECT  FROM  BUDGET 

ORACLE  1  l-DEC-86 

SELECT  LABOR  FROM  BUDGET  TABLE 

SELMAT  SELECT  FROM  MATERIAL 

ORACLE  l  l-DEC-86 

SELECT  MATERIAL  FROM  BUDGET  TABLE 

SELOTH  SELECT  FROM  BUDGET 

ORACLE  I  l-DEC-86 

SELECT  OTHER  FROM  BUDGET  TABLE 

SELEHOUR  SELECT  FROM  EXPENSE 

ORACLE  1  l-DEC-86 

SELECT  HOURS  FROM  EXPENSE  TABLE  SELELAB  SELECT  FROM 

EXPENSE  ORACLE  1  l-DEC-86 

SELECT  LABOR  FROM  EXPENSE  TABLE 

SELEMAT  SELECT  FROM  EXPENSE 

ORACLE  1  l-DEC-86 

SELECT  MATERIAL  FROM  EXPENSE  TABLE 

SELEOTH  SELECT  FROM  EXPENSE 

ORACLE  1  l-DEC-86 

SELECT  OTHER  FROM  EXPENSE  TABLE 

SELBFUN  SELECT  FROM  BUDGET 

ORACLE  1  l-DEC-86 

SELECT  FROM  BUDGET  BY  COST  FUNCTION  NO. 

SELEFUN  SELECT  FROM  EXPENSE 

ORACLE  1  l-DEC-86 

SELECT  FROM  EXPENSE  BY  COST  FUNCTION  NO. 


SELBCL  SELECT  FROM 

ORACLE  ll-DEC-86 

SELECT  FROM  BUDGET  BY  COST  CLASS 

SELECL  SELECT  FROM 

ORACLE  ll-DEC-86 

SELECT  FROM  EXPENSE  BY  COST  CLASS 

SELBCFCL  SELECT  FROM 

ORACLE  ll-DEC-86 

SELECT  FROM  BUDGET  BY  COST  FUNCTION/COST  CLASS 

SELECFCL  SELECT  FROM 

ORACLE  ll-DEC-86 

SELECT  FROM  EXPENSE  BY  COST  FUNCTION/COST  CLASS 

SELSUM  SELECT  FROM 

ORACLE  ll-DEC-86 

SELECT  TOTAL  FROM  BUDGET 

SELSUMA  SELECT  FROM 

ORACLE  ll-DEC-86 

SELECT  TOTAL  FROM  EXPENSE 

j.  Data  Elements 

1.  Data  Elements  Table  Structure 

UFI>  SELECT  *  FROM  COL  WHERE  TNAME  =  ELEMENTS'; 

tname  colno  cname 

COLTYP  WIDTH 


BUDGET 


EXPENSE 


BUDGET 


EXPENSE 


BUDGET 


EXPENSE 


SCALE  NULLS 


ELEMENTS 


ELEMENTID 


NOT  NULL 
ELEMENTS 

NULL 

ELEMENTS 


NULL 

ELEMENTS 

NULL 

ELEMENTS 

NULL 

ELEMENTS 

NULL 


l 

CHAR  20 

2  FULLID 

CHAR  40 

3  TYPE 

CHAR  10 

4  SOURCE 

CHAR  15 

5  UPDATEFREQ 

CHAR  10 

6  COMMENTS 

CHAR  60 


2.  Data  Elements  Listing 


UFI>  SELECT  *  FROM  ELEMENTS; 

ELEMENTID  FULLID  TYPE  SOURCE 

UPDATEFREQ  COMMENTS 

COSTCL.NO  COST  CLASS  NUMBER  CHAR  BUDGET 

SELDOM  SPECIFIES  COST  CLASS  BY  NUMBER 


COST_CL_NO  COST  CLASS  NUMBER  CHAR  EXPENSE 

SELDOM  SPECIFIES  COST  CLASS  BY  NUMBER 
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COST_FUNC_NO  COST  FUNCTION  NUMBER  CHAR  BUDGET 

SELDOM  SPECIFIES  COST  FUNCTION  BY  NUMBER 

COST_FUNC_XO  COST  FUNCTION  NUMBER  CHAR  EXPENSE 

SELDOM  SPECIFIES  COST  FUNCTION  BY  NUMBER 

DT  EXPENSE  DATA  DATE  DATE  EXPENSE 

SEMIWEEKLY  SPECIFIES  THE  DATE  OF  THE  EXPENSE  DATA 

OTHOURS  BUDGETED  HOURS  OVERTIME  NUMBER  BUDGET 

SEMIWEEKLY  SPECIFIES  HOURS  BUDGETED  FOR  THE  COST  CENTER 

STHOURS  BUDGETED  HOURS  STRAIGHT  TIME  NUMBER 

BUDGET  SEMIWEEKLY  SPECIFIES  HOURS  BUDGETED  FOR  THE  COST 
CENTER 

OTHOURS  EXPENSED  HOURS  OVERTIME  NUMBER  EXPENSE 

SEMIWEEKLY  SPECIFIES  HOURS  EXPENSED  BY  THE  COST  CENTER 

STHOURS  EXPENSED  HOURS  STRAIGHT  TIME  NUMBER 

EXPENSE  SEMIWEEKLY  SPECIFIES  HOURS  EXPENSED  BY  THE  COST 
CENTER 

OTLABOR  BUDGETED  LABOR  COSTS  OVERTIME  NUMBER 

BUDGET  SEMIWEEKLY  SPECIFIES  LABOR  BUDGETED  FOR  THE  COST 
CENTER 

STLABOR  BUDGETED  LABOR  COSTS  STRAIGHT  TIME  NUMBER 
BUDGET  SEMIWEEKLY  SPECIFIES  LABOR  BUDGETED  FOR  THE  COST 
CENTER 

OTLABOR  EXPENSED  LABOR  COSTS  OVERTIME  NUMBER 

EXPENSE  SEMIWEEKLY  SPECIFIES  LABOR  EXPENSED  FOR  THE  COST 
CENTER 

STLABOR  EXPENSED  LABOR  COSTS  STRAIGHT  TIME  NUMBER 
EXPENSE  SEMIWEEKLY  SPECIFIES  LABOR  EXPENSED  FOR  THE  COST 
CENTER 
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MATERIAL  BUDGETED  MATERIAL  COSTS  NUMBER 

BUDGET  SEMIWEEKLY  SPECIFIES  MATERIAL  BUDGETED  FOR  THE 
COST  CENTER 

MATERIAL  EXPENSED  MATERIAL  COSTS  NUMBER 

EXPENSE  SEMIWEEKLY  SPECIFIES  MATERIAL  EXPENSED  FOR  THE 
COST  CENTER 

OTHER  BUDGETED  OTHER  COSTS  NUMBER  BUDGET 

SEMIWEEKLY  SPECIFIES  OTHER  BUDGETED  FOR  THE  COST  CENTER 

OTHER  EXPENSED  OTHER  COSTS  NUMBER  EXPENSE 

SEMIWEEKLY  SPECIFIES  OTHER  EXPENSED  FOR  THE  COST  CENTER 

k.  System  Element  Hierarchy 

1.  System  Elements  Hierarchy  Table  Structure 

UFI>  SELECT  *  FROM  COL  WHERE  TNAME  -  'CONT; 


TNAME 

NULLS 

COLNO 

CNAME 

COLTYPE 

WIDTH 

SCALE 

CONT 

1 

ID1 

CHAR 

15 

NULL 

CONT 

2 

TYPE1 

CHAR 

10 

NULL 

CONT 

3 

ID2 

CHAR 

16 

NULL 

CONT 

4 

TYPE2 

CHAR 

10 

NULL 

2.  Systems  Elements  Hierarchy  Listing 
UFI  >  SELECT  *  FROM  CONT; 

ID1  TYPE1  id:  type: 

III 


EXPENSE 

TABLE 

EXPENSE 

TABLE 

EXPENSE 

TABLE 

EXPENSE 

TABLE 

EXPENSE 

TABLE 

EXPENSE 

table 

EXPENSE 

TABLE 

EXPENSE 

TABLE 

EXPENSE 

TABLE 

BUDGET 

TABLE 

BUDGET 

TABLE 

BUDGET 

TABLE 

BUDGET 

TABLE 

BUDGET 

TABLE 

BUDGET 

TABLE 

BUDGET 

TABLE 

BUDGET 

TABLE 

COST_FUN_NO 

ELEMENT 

COST_CL_NO 

ELEMENT 

STHOURS 

ELEMENT 

STLABOR 

ELEMENT 

OTHOURS 

ELEMENT 

OTLABOR 

ELEMENT 

MATERIAL 

ELEMENT 

OTHER 

ELEMENT 

DT 

ELEMENT 

COST_FUN_NO 

ELEMENT 

COST_CL_NO 

ELEMENT 

STHOURS 

ELEMENT 

STLABOR 

ELEMENT 

OTHOURS 

ELEMENT 

OTLABOR 

ELEMENT 

MATERIAL 

ELEMENT 

OTHER 

ELEMENT 

3.  System  Process  Table  Structure 


UFI  >  SELECT  •  FROM  COL  WHERE  TNAME  -  PROCESS  ; 


TNAME 

COLNO 

CNAME 

COLTYP 

CALE  NULL 

PROCESS 

1 

IDl 

CHAR 

.20 

NULL 

PROCESS 

TYPEl 

CHAR 

10 

NULL 

WIDTH 


PROCESS 


3 


id: 


CHAR 


PROCESS 


4 

10 


TYPE2 

NULL 


CHAR 


4.  Process  Listing 


UFI>  SELECT  *  FROM  PROCESS; 


IDl 

TYPE1 

CCA 

PROGRAM 

CCA 

PROGRAM 

CCA 

PROGRAM 

GRAPHICS 

PROGRAM 

GRAPHICS 

PROGRAM 

GRAPHICS 

PROGRAM 

GRAPHICS 

PROGRAM 

COMDLEV 

PROGRAM 

CCI 

PROGRAM 

CCI 

PROGRAM 

CCI 

PROGRAM 

BAR 

PROGRAM 

TRIPBAR 

PROGRAM 

PLOT 

PROGRAM 

PLOT 

PROGRAM 

COMBO 

PROGRAM 

COMBO 

PROGRAM 

COMBO 

PROGRAM 

UFI 

PROGRAM 

UFI 

PROGRAM 

UFI 

PROGRAM 

UFI 

PROGRAM 

UFI 

PROGRAM 

UFI 

PROGRAM 

UFI 

PROGRAM 

ID2 

TYPE2 

GRAPHICS 

PROGRAM 

COMDLEV 

PROGRAM 

CCI 

PROGRAM 

BAR 

PROGRAM 

TRIPBAR 

PROGRAM 

PLOT 

PROGRAM 

COMBO 

PROGRAM 

UFI 

PROGRAM 

BUD.EXP 

PROGRAM 

EMPINFO 

PROGRAM 

JOINFO 

PROGRAM 

GRAF 

FILE 

GRAF 

FILE 

BUD 

FILE 

GRAFI 

FILE 

GRAF 

FILE 

GRAFI 

FILE 

BUD 

FILE 

EMPLOYEE 

TABLE 

JO_EMP 

TABLE 

JOB_ORD 

TABLE 

COST_FUNC 

TABLE 

COST_CLASS 

TABLE 

BUDGET 

TABLE 

EXPENSE 

TABLE 
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V.  /  V-V-  V-  A 


.  d»-  «•- 


BUD.EXP 

PROGRAM 

GETBUD 

PROGRAM 

BUD.EXP 

PROGRAM 

INDVDISP 

PROGRAM 

BUD.EXP 

PROGRAM 

TOTBUDEXP 

PROGRAM 

INDVDISP 

PROGRAM 

GETLAB 

PROGRAM 

1NDVDISP 

PROGRAM 

GETMAT 

PROGRAM 

INDVDISP 

PROGRAM 

GETOTH 

PROGRAM 

INDVDISP 

PROGRAM 

GETHOUR 

PROGRAM 

GETBUD 

PROGRAM 

SELFUN 

PROGRAM 

TOTBUDEXP 

PROGRAM 

GETTOTF 

PROGRAM 

TOTBUDEXP 

PROGRAM 

GETTOTC 

PROGRAM 

TOTBUDEXP 

PROGRAM 

GETTOTCF 

PROGRAM 

TOTBUDEXP 

PROGRAM 

GETSUM 

PROGRAM 

GETLAB 

PROGRAM 

SELLAB 

PROGRAM 

GETLAB 

PROGRAM 

SELELAB 

PROGRAM 

GETHOUR 

PROGRAM 

SELHOLR 

PROGRAM 

GETHOUR 

PROGRAM 

SELEHOUR 

PROGRAM 

GETMAT 

PROGRAM 

SELMAT 

PROGRAM 

GETMAT 

PROGRAM 

SELEMAT 

PROGRAM 

GETOTH 

PROGRAM 

SELOTH 

PROGRAM 

GETOTH 

PROGRAM 

SELEOTH 

PROGRAM 

SELFUN 

PROGRAM 

BUDGET 

TABLE 

GETTOTF 

PROGRAM 

SELBFUN 

PROGRAM 

GETTOTF 

PROGRAM 

SELEFUN 

PROGRAM 

GETTOTC 

PROGRAM 

SELBCL 

PROGRAM 

GETTOTC 

PROGRAM 

SELECL 

PROGRAM 

GETTOTFC 

PROGRAM 

SELBCFCL 

PROGRAM 

GETTOTFC 

PROGRAM 

SELECFCL 

PROGRAM 

GETSUM 

PROGRAM 

SELSUM 

PROGRAM 

GETSUM 

PROGRAM 

SELSUMA 
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5.  UFI  FILES 

UFI  files  can  be  used  to  create  tables  in  Oracle.  These  files  allow  the  user  to 
input  the  information  using  an  editor  rather  than  interactively  with  Oracle.  The  format 
that  Oracle  accepts  new  data  is  also  shown  with  the  INSERT  command.  Two  samples 
of  L'FI  files  are  shown  below.  Neither  is  complete  as  it  stands.  Only  a  small  number 
of  records  that  need  to  be  read  into  the  tables  are  shown.  In  actuality,  every 
authorized  cost  function  cost  class  must  have  an  entry  for  both  budget  and  for  each 
date  of  expense  even  if  the  values  are  all  zeroes, 
a.  BUIKJET.UF1 
SYSTEM  MANAGER 
SET  ECHO  OFF 
SET  VERIFY  OFF 
SET  TERMOUT  ON 
SET  SCAN  OFF 

CREATE  TABLE  BUDGET(COST_FUN_NO  CHAR(4)  NOT  NULL, 
COST_CL_NO  CHAR*  2)  NOT  NULL, 

OTHOL’RS  NLMBER(7,1), 

STHOLRS  NLMBERr.n, 

OTLABOR  NUMBER)  1 1.4). 

STLABOR  NUMBER*  1 1.4). 

MATERIAL  NUMBER*  1 1.4). 

OTHER  NUMBER*  1 1.4)); 

SET  SCAN  ON 


INSERT  INTO  BUDGET  VALUES('91 12'.  02',  O',  O',  O', 

O'.  O',  O'); 

INSERT  INTO  BUDGET  VALUES* '91 12'.  03',  O',  O',  O', 

O',  O'.  O'); 

INSERT  INTO  BUDGET  VALUES*  9112',  04',  O',  '201',  O', 

3152',  O',  O'); 

INSERT  INTO  BUDGET  VALUES(  91 12'.  'll',  O',  O',  O', 

O',  O',  O'); 

INSERT  INTO  BUDGET  VALUES*'9112',  12',  O',  O’,  'O', 

O',  '2000',  '4500'); 

INSERT  INTO  BUDGET  VALUES* ‘9 1 12'.  '91',  '414',  '3000',  1567', 

100000',  O',  O');  INSERT  INTO  BUDGET  VALUES('9l 12',  93',  '37', 

1800'  '2000'. 

17540',  O',  O'); 

INSERT  INTO  BUDGET  VALUES*  9119  .  43',  O',  O',  'O', 

O'.  O'.  O'); 

INSERT  INTO  BUDGET  VALUES*  91 19'.  54',  O'.  O',  0  , 

O',  507340',  O'); 

INSERT  INTO  BUDGET  VALUES* '91 19',  '68',  O',  O',  O', 

O',  O',  O'); 

COMMIT; 

CREATE  INDEX  BCF  ON  BUDGET(COST_FUN_NO); 

CREATE  INDEX  BCC  ON  BUDGET(COST_CL_NO); 

UPDATE  BUDGET  SET  LABOR  -  LABOR  !  1000,  MATERIAL  -  MATERIAL 

1000, 

OTHER  -  OTHER  1000; 

GRANT  SELECT  ON  BUDGET  TO  PUBLIC; 

EXIT 

b.  EXPENSE.UFI 
SYSTEM/MANAGER 
SET  ECHO  OFF 
SET  VERIFY  OFF 
SET  TERMOLT  ON 
SET  SCAN  OFF 

CREATE  TABLE  EXPENSEi COST_FL  N_NO  CHAR(4>  NOT  NULL. 


COST_CL_NO  CHAR(2)  NOT  NULL, 

DT  DATE  NOT  NULL, 

OTHOURS  NUMBER(7fl), 

STHOURS  NUMBER(7,1), 

OTLABOR  NUMBER(11,4), 

STLABOR  NUMBER(11,4), 

MATERIAL  NUMBER(tl,4), 

OTHER  NUMBER!  11,4)); 

SET  SCAN  ON 

INSERT  INTO  EXPENSE  VALUES* '9 112',  02',  17-OCT-86', '  O', 

’  O' , '  O'. '  0'  'O',  O'); 

INSERT  INTO  EXPENSE  VALUES!  9112',  03',  17-OCT-86', '  O', 

0' ,  '  O',  '  170',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9I12',  04',  17-OCT-86'. '  10', 

'80' ,  '  344',  '  2344',  '2006',  16  ); 

INSERT  INTO  EXPENSE  VALUES* '91 12',  'll',  17-OCT-86', '  O', 

U  ,  '  O',  '  7',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES!  9112',  12',  17-OCT-86'.  '  O'. 

'  0','  0','  O',  '5725',  '929'); 

INSERT  INTO  EXPENSE  VALUES!'9!12\  '28',  17-OCT-86',  '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES*  9112',  '30',  17-OCT-86 .  '  O'. 

'  0','  0','  O',  O',  '4522'); 

INSERT  INTO  EXPENSE  VALUES!  91 12'.  33',  17-OCT-86.  O'. 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES!  9112',  39',  I7.0CT-86  ,  '  O', 

'  0','  O'.'  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES!  91 12'.  43'.  17-OCT-S6 .  O'. 

0'  .  '  O',  '  O'.  O'. 

INSERT  INTO  EXPENSE  VALUES*  91 12',  54',  I7-OCT-86',  '  O'. 

O'  , '  O', '  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES*  91 12'.  68'.  17-OCT-86  .  '  O'. 

0'  .  '  O',  '  O',  O',  O'); 
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INSERT  INTO  EXPENSE  VALUES*'9U2',  '91'.  17.0CT-86', ' 

'  140,  '  500','  4089',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9112',  '93',  17-OCT-86'. '  O', 

'  56','  0','  593',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES* '9 1 12',  '96',  17-OCT-86',  '  O', 

0'  , '  O', '  O'.  O'.  '498752'); 

INSERT  INTO  EXPENSE  VALUES('91 12',  97',  17-OCT-86',  '  O', 

'  0','  0','  O',  'O',  O'); 

INSERT  INTO  EXPENSE  VALUES* '91 12',  '98',  17-OCT-86', '  O', 

0' , '  O', '  O',  '5235', 

INSERT  INTO  EXPENSE  VALUES('9112\  '99',  I7-OCT-86', '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES* '9 11 3',  02',  17-OCT-86'. '  O', 

'  0','  0','  O'.  O',  O'); 

INSERT  INTO  EXPENSE  VALUES*'9I13',  03',  17-OCT-86',  '  O', 

'  0','  0','  O',  O'.  O'); 

INSERT  INTO  EXPENSE  VALUES('9i  13  ,  04',  17-OCT-86',  O'. 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES* '9 It 3'.  'll',  17-OCT-86',  '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES*  91 13',  12',  17-OCT-86',  '  O', 

’  0','  O',  '  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9U3',  23'.  17-OCT-86'.  O', 

'  0','  0','  O',  'O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9t  13',  '28',  17-OCT-86',  '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9113\  30',  17-OCT-86',  '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 13',  '32'.  17-OCT-86’. '  O'. 

0'  ,  '  O'.  '  O',  O'.  O'); 

INSERT  INTO  EXPENSE  VALUES*  9113',  39',  I7-OCT-86',  '  6  , 

'  10','  31','  100',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES*  9113',  '43',  17-OCT-86',  '  O', 

O'  ,  '  O'.  '  O',  O'.  O'); 

INSERT  INTO  EXPENSE  VALUES*  91 13',  >4',  r-OCT-86',  '  O'. 
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0' . '  O', '  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9113\  '68',  17-OCT-86', '  O', 

'  0','  0','  O',  O',  O'); 


INSERT  INTO  EXPENSE  VALUES! '9 113',  91',  T7-OCT-86’,  '  67', 

'  500'  ,  '  400',  '  14026',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9113\  '92',  17-OCT-86', '  531', 

'  2000'  ,  '  1599',  '  43000'.  O',  '-594'); 

INSERT  INTO  EXPENSE  VALUES('91 13',  '93',  17-OCT-86', '  64', 

‘  800','  2383','  10000',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9U3',  '96',  17-OCT-86', '  O', 

0'  ,  '  O'.  '  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 13',  '99',  17-OCT-86’,  '  O', 


'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 14',  04',  17-OCT-86',  '  O', 

'  0' .  '  O',  '  O',  O'.  O'); 

INSERT  INTO  EXPENSE  VALUES('9ll4',  12',  '17-OCT-86',  '  O', 

0'  ,  '  O',  '  O',  'O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 14',  '28',  17-OCT-86',  '  O', 

0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES! '91 14',  '30',  17-OCT-86', '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9114\  '32',  17-OCT-86',  ’  O', 

O'  ,  '  O'.  '  O',  O'.  O'); 

INSERT  INTO  EXPENSE  VALUES('91 14’,  '33',  17-OCT-86',  '  O', 

0'  ,  '  O',  '  O',  'O',  O’); 

INSERT  INTO  EXPENSE  VALUES('9I 14',  '43',  17-OCT-86',  '  O', 

'  0',’  0','  O',  O'.  O'); 

INSERT  INTO  EXPENSE  VALUES('91 14',  '54',  '17-OCT-86',  '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9l  14'.  '68'.  17-OCT-86',  '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES! '91 14',  '94',  17-OCT-86',  '  O', 

0'  ,  '  O',  '  O',  O',  '4968'); 

INSERT  INTO  EXPENSE  VALUES! '91 14',  '95'.  17-OCT-86'.  '  O', 

0'  ,  '  O',  '  O',  O'.  246  ); 
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INSERT  INTO  EXPENSE  VALUES*' 91 14',  '98',  '17-OCT-86', '  O', 

0','  0','  O',  O',  '0'); 

INSERT  INTO  EXPENSE  VALUES* '91 15',  02',  17-OCT-86', '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES*'9U5',  03',  '17-OCT-86', '  O', 

0'  ,  '  O', '  O',  'O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9115\  04',  '17-OCT-86', '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES*'9ll5',  'll',  17-OCT-86', '  O', 

'  0','  0','  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('9115't  12',  17-OCT-86', '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9115',  '28',  17-OCT-86', '  O', 

'  0','  0','  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES(‘9U5',  '30',  17-OCT-86',  '  O', 

0','  0','  O'.  O',  O'); 

INSERT  INTO  EXPENSE  VALUES*  91 15',  32',  T7-OCT-86',  '  O'. 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 15',  '33',  17-OCT-86', '  O', 

'  0','  0’,'  O',  O',  '0'); 

INSERT  INTO  EXPENSE  VALUES* '91 15',  '39',  '17-OCT-86',  '  O', 

'  0','  0','  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('91 15',  '43',  17-OCT-86',  '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES* '9 115',  '54',  '17-OCT-86',  '  O', 

'  0','  0','  O',  O’,  O'); 

INSERT  INTO  EXPENSE  VALUES* '9 115',  '68',  T7-OCT-86', '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9115',  '91',  17-OCT-86',  '  O', 

'  103' , '  O', '  2205',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 15',  '93',  T7-OCT-86', '  3',  ' 

'  90' .  '  50',  '  703',  O',  '0');  -  | 

INSERT  INTO  EXPENSE  VALUES*  91 16',  02',  '17-OCT-86',  '  O',  1 

'  0'  ,  '  O',  '  O'.  O',  O');  .  | 

i 
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INSERT  INTO  EXPENSE  VALUES('91 16',  03',  '17-OCT-86', '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 16',  04',  17-OCT-86',  '  4', 

'  60','  24','  900',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('9U6',  'll',  '17-OCT-86', '  O', 

0'  ,  '  O',  '  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('9l  16',  12',  T7-OCT-86',  '  O', 

'  0','  0','  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('9116',  '28',  '17-OCT-86', '  O', 

0','  0','  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('9116',  '30',  '17-OCT-86',  '  O', 

0','  0','  O',  O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('91 16',  '32',  '17-OCT-86',  '  O', 

0'  ,  '  O',  '  O',  O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('9tl6',  '33',  17-OCT-86',  O', 

'  0','  0','  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('9116',  '39',  17-OCT-86',  '  O', 

'  0','  0','  O',  'O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 16',  '43',  17-OCT-86',  '  O', 

'  0','  0','  O',  'O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91l6',  '54',  17-OCT-86',  '  O', 

'  0','  0','  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('9ll6',  '68',  '17-OCT-86'.  '  O'. 

0' ,  '  O',  '  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('9I16’,  '91',  17-OCT-86',  '  5', 

'  70'  ,  '  93',  '  1400',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 16',  '93',  '17-OCT-86',  '  100', 

'  718','  473','  11000',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('91 17',  02',  '17-OCT-86'.  '  O'. 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 17',  03',  17-OCT-86',  '  O', 

'  0'  ,  '  O',  '  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES{'9117',  04',  17-OCT-86',  '  O', 

'  0','  0','  O',  O',  O’); 

INSERT  INTO  EXPENSE  VALUES('9l  17',  'll',  17-OCT-S6',  '  O'. 
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'  0','  O','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES! '91 17',  12',  17-OCT-86', '  O', 

'  O','  O','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES! '91 17',  '23',  17-OCT-86’, '  O', 

'  O','  O','  O',  O'.  O'); 

INSERT  INTO  EXPENSE  VALUES('91 17',  '28',  17-OCT-86',  '  O', 

'  O','  O','  O',  'O',  'O'); 

INSERT  INTO  EXPENSE  VALUES! '9 117',  '30',  17-OCT-86', '  O', 

'  0','  0','  O',  'O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '32',  17-OCT-86', '  O', 

0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9l  17',  '33',  17-OCT-86',  '  O', 

0'  ,  '  O',  '  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES! '9 1 17',  '39',  T7-OCT-86',  '  O', 

0'  ,  '  O',  '  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 17',  '43',  '17-OCT-86',  '  O', 

0'  ,  '  O',  '  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES!  91 17'.  54',  17-OCT-86',  '  O', 

'  0','  0','  O',  O',  '0'), 

INSERT  INTO  EXPENSE  VALUES('9117\  '68',  17-OCT-86', '  O', 

0'  ,  '  O',  '  O',  O',  '0'); 

INSERT  INTO  EXPENSE  VALUES('91 17',  '91',  T7-OCT-86',  '  23', 

'  200'  ,  '  78',  '  3800',  O'.  O'); 

INSERT  INTO  EXPENSE  VALUES('9l  17',  '93',  17-OCT-86',  '  61', 

'  1200'  ,  '  190',  '  16000',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES!  91 17',  95',  17-OCT-86  ,  '  O', 

0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES! '9 1 17',  '96',  T7-OCT-86',  '  O', 

'  0','  0','  O',  'O'.  '0'); 

INSERT  INTO  EXPENSE  VALUES!'9l  17'.  '97\  '17-OCT-86'.  '  O'. 

0'  ,  '  O', '  O',  '9654',  O'); 

INSERT  INTO  EXPENSE  VALUES! '91 17',  '99',  T7-OCT-86',  '  O', 

0','  0','  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES! '91 18'.  02',  '17-OCT-S6',  '  O', 

0'  ,  '  O',  '  O',  O'.  O'); 
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INSERT  INTO  EXPENSE  VALUES('9U2',  02',  '31-OCT-86', '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 12',  03',  '31-OCT-86',  '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES* '91 12',  04',  '31 -OCT-86', '  181', 

0','  4711','  O',  '2006',  '16'); 

INSERT  INTO  EXPENSE  VALUES('9ll2',  'll',  '31-OCT-86',  '  6', 

'  0','  75','  O’,  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES* '9 112',  '12',  '31 -OCT-86', '  O', 

0' , '  O', '  O',  '6280',  '929'); 

INSERT  INTO  EXPENSE  VALUES*'91 12',  '28',  '31-OCT-86', '  O', 

0' , '  O', '  O',  O',  '0'); 

INSERT  INTO  EXPENSE  VALUES* '9 1 12',  '30',  '31-OCT-86',  '  O', 

0'  , '  O', '  O'.  'O',  '5950'); 

INSERT  INTO  EXPENSE  VALUES('9l  12',  '33',  '31-OCT-86',  '  O', 

0'  ,  '  O',  '  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 12',  '43',  '31-OCT-86',  '  O', 

'  0'  ,  '  O',  '  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('9ll9',  '43',  '31-OCT-86', '  O', 

'  0','  O', '  O',  'O',  '0'); 

INSERT  INTO  EXPENSE  VALUES* '91 19',  '54',  '31-OCT-86',  '  O', 

'  0','  0','  O',  O',  O'); 

INSERT  INTO  EXPENSE  VALUES('91 19’,  '68',  '31-OCT-86',  '  O', 

0','  0','  O',  O',  O'); 

COMMIT; 

CREATE  INDEX  ECF  ON  EXPENSE(COST_FUN_NO); 

CREATE  INDEX  ECC  ON  EXPENSE(COST_CL_NO); 

UPDATE  EXPENSE  SET  LABOR  =  LABOR  /  1000,  MATERIAL  =  MATERIAL 

1000, 

OTHER  -  OTHER  /  1000; 

GRANT  SELECT  ON  EXPENSE  TO  PUBLIC; 

EXIT 
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APPENDIX  B 

COST  CENTER  ANALYSIS  USER  MANUAL  (MINICOMPUTER) 


1.  INTRODUCTION 

This  system  is  designed  to  allow  Cost  Center  managers  the  ability  to  track 
expenses  and  compare  them  to  budgeted  amounts.  In  that  way  users  can  gain  greater 
insight  into  costs  and  the  reasons  behind  them.  This  ability  should  give  managers  a 
much  clearer  appreciation  of  where  and  how  costs  are  being  produced. 

Graphic  display  of  some  of  the  numerical  output  is  provided  using  TEL-A- 
GRAF  business  graphic  system. 

2.  REQUIREMENTS 

Cost  Center  Analysis  (minicomputer)  is  designed  for  a  Prime  9755  computer  with 
on-line  capabilities.  The  software  is  written  in  CPL,  Prime's  Command  Processor 
Language,  and  the  TEL-A-GRAF  command  language.  The  software  requirements  are 
the  CCA  (minicomputer)  program,  TEL-A-GRAF,  and  the  PRIMOS  operating  system. 

3.  STARTING  THE  SYSTEM 

At  the  PRIMOS  command  prompt  (OK,  or  ER,)  type  <  R  CCA>  (do  not  type 
the  less  than  ( < )  or  greater  than  ( > )  symbols)  to  activate  the  Cost  Center  Analysis 
program.  The  ”R"  stands  for  RESUME.  RESUME  allows  the  user  to  interactively 
run  a  CPL  program.  The  operating  system  then  looks  for  a  "compiled  and  loaded 
program."  If  it  does  not  find  the  file,  it  will  then  look  for  the  appropriate  CPL  file. 
The  CPL  interpreter  will  then  act  on  the  program  CCA.CPL  and  issue  the  appropriate 
instructions  to  PRIMOS  [Ref.  14:  p.  1-  1-2]. 

The  program's  top  level  menu  should  then  display.  If  it  does  not,  check  to  see 
that  you  are  at  the  PRIMOS  command  prompt.  If  so,  follow  the  above  steps  to  load 
CCA.  Ensure  you  type  the  "R”  before  CCA. 

4.  MAIN  MENU 

With  this  version  you  are  allowed  two  options  (see  Figure  B.l).  In  future 
versions  more  options  may  be  added. 

At  the  "Select  One:’’  prompt  you  may  respond  with  "T”  or  "Q”  to  identify  your 
desired  option  (see  figure  B.l).  The  system  will  validate  vour  response,  so  the  select 
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TEL-A-GRAF  GRAPHICS  DISPLAY 
QLIT 


Select  One: 


Figure  B.l  CCA  Top  Level  Menu. 


prompt  will  reappear  if  anything  other  than  "T"  or  Q"  are  entered.  If  you  enter  Q  ' 
you  will  leave  CCA  and  be  returned  to  the  PRIMOS  level  at  the  command  prompt 
(OK,).  Option  "T"  will  select  the  TEL-A-GRAF  option,  allowing  you  to  produce 
various  graphs  from  standard  formatting  files.  CCA. 

After  the  system  validates  your  response  (T),  you  will  be  asked  if  you  wish  to  go 
directly  to  TEL-A-GRAF  (see  Figure  B.2V 

This  gives  you  the  option  of  entering  TEL-A-GRAF  immediately,  without 
selecting  one  of  the  standard  graphs  that  are  provided  the  user  through  CCA.  Entering 
TEL-A-GRAF  at  this  level  requires  you  to  know  the  command  language,  and  how  to 
format  your  data  and  include  files.  The  include  files  contain  the  programs  which  TEL- 
A-GRAF  uses  to  produce  the  graphs.  The  data  files  contain  the  formatted  data.  The 
novice  or  occasional  user  is  cautioned  to  use  the  graphic  formats  provided  by  CCA. 
The  structure  of  the  data  and  include  files  will  be  dealt  with  in  more  detail  below. 

If  you  do  not  wish  to  go  directly  to  TEL-A-GRAF,  select  “V  or  "NO".  This 
query  will  only  accept  a  yes  or  no  response. 


T-T^-GRAF graphics  display 


Select  One:  T 

Go  directly  to  TEL-A-GRAF? 


Figure  B.2  Prompt  for  the  user  s  response. 

5.  CHOOSE  COST  CENTER  MENU 

This  menu  allows  the  user  to  select  the  particular  Cost  Center  he  wishes  to 
investigate  (see  figure  B.3).  In  this  version  only  one  Cost  Center  is  provided.  Future 
versions  could  easily  incorporate  more. 

At  the  "Select  One:"  prompt  enter  This  is  the  only  response  that  CCA  will 
validate.  An  inappropriate  response  will  cause  the  prompt  to  reappear. 

6.  GRAPH  PLOT  CODE  MENU 

This  menu  allows  the  user  to  select  the  type  of  standard  graph  he  desires  .  see 
figure  B.4). 

Option  "A"  gives  the  user  the  opportunity  to  produce  a  plot  of  budget  to 
expenses.  Within  the  plot  a  bar  chart  of  the  budget  data  is  overlayed.  This  graph 
provides  the  capability  to  study  expense  to  budget  variances,  and  to  quickly  dentin 
how  closely  to  budget  the  Cost  Center  is  tracking. 

Option"B"  produces  a  bar  chan  of  the  expense  to  budget  data.  It  displays  that 
information  in  "time  elapsed."  This  allows  the  user  to  identify  vanances  and  also  the 
budget  amount  that  should  be  expensed  at  the  particular  data  date. 
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'  Select  One: 


Figure  B.j  Prompt  for  the  user  s  response. 

Option  ~C"  develops  a  composite  of  four  variance  graphs:  Percent  Expended. 
Data  Normalized  on  Percent  Elapsed  Time.  Variance  m  Dollars,  and  Percent  Variance. 
These  bar  charts  show  whether  the  particular  expenses  accrued  have  positive  or 
negative  variances  and  their  magnitudes. 

7.  PLOT  OPTIONS  MENU 

This  menu  allows  the  user  to  further  define  the  particular  graph  selected  isee 
figure  B.5). 

Option  "A"  causes  the  graph  produced  to  display  the  total  budget  and  expenses 
of  the  Cost  Center  selected.  Bar  Graphs  will  be  broken  down  by  Cost  Functions 
within  the  Cost  Center. 

Options  "2"  through  “9”  will  provide  rhe  data  by  particular  Cost  Function.  On 
the  bar  graphs  the  Cost  Functions  will  be  broken  down  by  Cost  Classes. 

All  expense  data  is  of  the  most  current  date  entered  into  the  updated  data  files 


PLOT  CODE: 


A  '  PL  BARC^A^f  O^ BufeGfe?  OVERLAYED  ON  THE  PLOT 
B  -  BARCH^R^  BY  COST  FUNCTION  OF  EXPENSE  TO 

C  -  COMPOSITE  GRAPH  OF 


Select  One: 


Figure  B.4  Plot  Code  Selections. 

8.  ENTER  TEL-A-GRAF  j 

At  this  point  CCA  will  open  TEL-A-GRAF  and  issue  the  appropriate  commands 
to  produce  the  desired  graph.  The  commands  will  scroll  by  on  the  screen  and  then  you 
will  get  a  blank  screen.  In  a  few  seconds  the  selected  gTaph  will  be  drawn  on  the 
screen.  After  it  is  complete  you  may  study  the  graph.  To  continue  strike  the 
<  ENTER>  or  <  RETURN >  key.  You  will  be  returned  to  the  command  language 
level  of  TEL-A-GRAF.  You  may  continue  working  at  this  level,  if  you  know  the 
appropriate  commands.  To  return  to  CCA,  type  <QLTT.  >.  You  will  then  receive 
the  prompt  in  figure  B.6  Typing  "N"  or  "NO"  will  allow  you  to  produce  another  graph 
through  CCA.  Typing  "Y"  or  "YES"  will  return  you  to  the  PRIMOS  command 
prompt. 
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PLOT  OPTIONS: 


Figure  B.5  Plot  Option  Selections. 


Figure  B.ft  Completion  Querv 

9.  USING  TEL-A-GRAF 

TEL-A-GRAF  is  a  very  powerful  graphics  system.  With  this  power  comes  mans 
options  and  different  ways  of  accomplishing  the  same  tasks.  We  shall  dtscuss  onh  a 
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few  of  them  here.  The  TEL-A-GRAF  User  Manual  [Ref.  12],  will  answer  most 
questions  you  may  have  if  you  want  to  become  more  familiar  with  TEL-A*GRAF 

a.  Making  Your  Own  Data  Files 

Many  methods  exist  for  entering  data  for  a  graph.  We  shall  talk  of  only  two 
methods.  The  first  is  creating  the  data  tile  from  the  editor,  and  the  second  is  mputing 
the  data  while  tn  TEL-A-GRAF.  All  data  must  oe  inputed  in  millions  of  dollars  or  a 
Cost  Center.  For  example,  five  hundred  thousand  dollars.  S5ooj m m>.uo  is  represented 
as  .5  and  one  million  dollars,  S 1 .000.000.00,  is  represented  as  1.0.  When  data  is 
inputed  for  a  Cost  Function,  by  Cost  Class,  it  must  be  in  thousands  of  dollars 
Variance  data  is  in  Dollars  or  decimal  representation  for  percentages. 
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Figure  B.7  TEL-A-GRAF  Data  File  for  Triple  Bar  Chan 

/.  Creating  a  Data  File  From  the  Editor. 

Creating  data  files  from  the  editor  offers  seseral  advantages  to  entering  he 
data  interactively  with  TEL-A-GRXF  Tiro,  by  entering  'he  data  n  ne  eunor  moue. 
you  can  check  the  data  for  errors  that  may  have  occurred  when  entering  the  data 
Secondly,  if  several  different  sets  of  data  are  to  be  graphed  prepositioning  the  data  in 
files  will  shorten  the  amount  of  time  you  will  need  to  be  at  the  graphics  terminal 
Lastly,  if  the  data  will  be  used  later,  sou  Mil  not  base  to  input  ;t  wain 

This  is  not  a  tutonal  on  how  to  use  tne  editor.  1  or  inlormation  on  ;ne 
editors  available  and  how  to  use  them  see  the  Prime  Computer  Training  Manual 
[Ref.  15] 
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Figure  B.7  is  an  example  of  a  typical  data  file.  This  particular  data  was  \ 

used  with  the  Triple  Bar  chart.  However,  the  format  is  the  same  for  all  graphs.  The  • 

first  line  must  be  INPUT  DATA.  The  period  at  the  end  of  the  line  is  very  important  | 

so  do  not  forget  it.  The  next  line  should  be  the  name  of  the  data.  This  name  will  ' 

appear  in  any  legend  that  you  may  want  to  produce.  Next  comes  the  actual  data.  The 
data  must  be  in  X.  Y  pairs,  the  independent  followed  by  the  dependent.  The  comma 
between  the  x.y  is  optional,  a  space  will  do.  The  data  may  also  be  written  in  column 
form  which  makes  changes  and  error  checking  much  easier.  In  the  include  files  we 
shall  discuss,  all  dependent  values  are  0  at  the  origin,  followed  by  1,2,  3.  4,  etc.  The 
label  for  each  however,  is  not  1.  2.  .3  etc.  The  labels  have  been  given  other  names  such 
as  the  Cost  Functions  9112.  9113.  etc.  The  corresponding  position  is  the  number  that 
must  be  in  the  data  tile,  not  the  label. 

If  more  than  one  set  of  data  is  to  be  graphed  on  that  graph,  the  remaining 
data  can  be  entered  in  the  same  way.  When  all  data  is  entered,  the  last  statement  must 
be  END  OF  DATA.  The  last  statement  shown  m  figure  B.7  is  the  end  of  file  symbol 
for  TEL-A-GRAF  This  is  optional  for  the  user  to  put  in  because  TEL-A-GRAF  will 
automatically  write  :t  in  the  file  after  it  is  done. 

Without  the  data  base  implemented  you  may  think  that  this  system  is 
useless.  You  can,  however,  enter  your  own  data  into  the  appropriate  file  to  use  one  of 
the  graphs  shown  Figure  B  S  shows  which  data  goes  with  which  graphs.  By  entering 
the  updated  information  in  the  appropriate  data  file  in  the  appropriate  format,  the 
CCA  menu  system  can  be  used  with  no  knowledge  of  TEL-A-GRAF  Only  knowing 
how  ‘o  ouiid  a  data  ‘tie  .s  'euuired. 
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Figure  B  8  Name  of  Data  Files  Matched  With  the  Appropriate  Graphs. 


The  name  of  the  data  file  consists  of  two  parts,  letters  followed  by 
numbers.  The  letters  may  represent  on  of  two  things.  In  the  composite  graph,  the  bar 
graph  of  the  budget  is  linked  with  the  data  file  B 1 10.  No  matter  which  Cost  Function 
you  select  for  the  plot  in  the  menu,  the  budget  for  the  Cost  Center  broken  down  by 
Cost  Function  is  displayed  in  the  comer.  All  other  graphs  are  linked  as  shown  is  figure 
B.3  .  When  graphing  a  Cost  Function  instead  of  the  cost  center,  the  data  file's 
numbers  are  the  Cost  Function  number,  with  the  exception  of  the  bl  10  series,  which 
always  references  b  1 10.  For  example,  the  data  file  linked  to  the  triple  bar  graph  for 
Cost  Function  9112  is  BBE112,  for  Cost  Function  9113  is  BBE113,  and  so  on.  This 
convention  holds  for  all  classes  of  data  file  names. 

2.  Entering  Data  From  Within  TEL-A-GRAF 

This  process  is  more  complicated  than  using  the  editor,  and  has  a  greater 
potential  for  errors  getting  by.  A  knowledge  of  TEL-A-GRAF  is  necessary  in  order  to 
use  this  method.  Either  your  own  commands  must  be  issued  or,  the  files  already 
created  can  be  included.  Data  is  entered  the  same  way  as  it  is  in  figure  B.-’  .  and  as 
explained  in  the  previous  section. 

Since  a  knowledge  of  TEL-A-GRAF  is  necessary,  this  procedure  assumes  a 
more  sophisticated  user.  Modifying  the  existing  graphs  to  suit  your  own  needs  and 
using  different  data  may  be  a  useful  technique  for  learning  TEL-A-GRAF. 
b.  TEL-A-GRAF  Commands 

This  section  is  designed  to  show  you  how  to  manipulate  existing  files  that 
TEL-A-GRAF  uses.  It  is  not  designed  to  show  you  how  to  write  original  TEL-A- 
GRAF  programs.  Figure  B.9  list  the  names  of  the  programs  and  their  relation  with 
other  modules. 

The  main  module  for  each  graph  contains  the  commands  to  generate  a  graph 
from  Cost  Center  9110.  The  related  graphs  modify  this  basic  graph  to  get  the 
appropriate  labels  and  titles. 

/.  Using  Existing  Files 

Existing  files  are  brought  in  to  TEL-A-GRAF  through  the  use  of  the 
INCLUDE  command.  The  include  command  brings  in  a  file  which  is  then  processed. 
If  more  than  one  file  is  brought  in,  the  first  is  processed,  and  changes  or  additions  to 
that  file  are  made  when  the  next  include  file  is  processed. 

An  example  of  a  possible  command  level  interaction  follows.  Suppose  you 
have  created  a  data  file  named  BBE112  for  a  triple  bar  graph  of  Cost  Function  ^  1 1 2 
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Figure  B.9  Graphic  Program  Module  Relations. 


broken  down  by  Cost  Class.  The  data  file  must  contain  a  value  for  each  authorized 


Cost  Class,  whether  it  has  been  used  of  not. 

The  first  prompt  from  TEL-A-GRAF  is  SPECIFY  FILES.  <  RETURN  > 
is  the  appropriate  response.  Next  you  need  to  specify  the  data  file.  Next  you  must 
include  the  first  include  file.  This  is  the  main  module  for  the  graph.  For  this  example 
it  is  B4'.  Next  you  must  specify  the  second  include  file  to  set  the  appropriate  headings 
and  labels.  In  this  example  that  file  is  B112.  Figure  B.10  demonstrates  the  proper 
sequence  for  this  example. 


SPECIFY  FILES:  <  RETURN  > 
GENERATE  LEVEL.. ENTER: 

<  DATAFILE  IS  BBE112'.  > 
GENERATE  LEVEL.. ENTER: 

<  INCLUDE  B4'.  > 

INCLUDE  FILE  BEING  PROCESSED 
ENTER  MORE  OR  PERIOD: 

<  INCLUDE  Bl  12'. > 

ENTER  MORE  OR  PERIOD: 


2.  Appending  Existing  Files 

If  you  went  through  the  process  of  figure  B.9  ,  but  you  were  not  satisfied, 
you  can  make  changes  from  inside  TEL-A-GRAF.  First  you  must  type 
"CONTINUE."  This  allows  you  to  continue  with  the  same  graph.  Now  you  can 
change  the  data,  the  title,  or  anything  else  you  wish.  You  can  change  the  data  file 
either  by  specifying  another  data  file  as  before,  or  by  inputing  the  data  by  hand  as 
described  in  the  data  section.  Changes  in  the  title  can  be  made  by  issuing  commands 
such  as  "TITLE  IS  BUDGET  VS  EXPENSES  FOR  COST  FUNCTION  9112  ."  This 
will  change  the  title  to  whatever  you  write. 

For  the  user  who  wants  to  use  TEL-A-GRAF  at  this  level,  further 
information  is  available  in  the  user  manual  ]Ref.  12]. 


APPENDIX  C 

COST  CENTER  ANALYSIS  USER  MANUAL  (MICROCOMPUTER) 


1.  INTRODUCTION 

This  system  is  designed  to  allow  Cost  Center  managers  the  ability  to  track 
expenses  and  compare  them  to  budgeted  amounts.  Additionally,  the  user  can  identify 
the  jobs  that  have  accrued  these  expenses.  In  that  way  users  can  gain  greater  insight 
into  those  costs  and  the  reasons  behind  them.  This  ability  should  give  managers  a 
much  clearer  appreciation  of  where  and  how  costs  are  being  produced. 

In  addition  to  the  query  screen  responses,  the  user  can  receive  hardcopy 
responses.  Graphical  display  of  some  of  the  numerical  output  is  also  provided  using 
the  systems  graphic  utilities. 

2.  REQUIREMENTS 

Cost  Center  Analysis  hardware  requirements  are  an  IBM  PC/XT/AT  with  at 
least  640K  and  a  hard  disk.  A  printer  is  optional  for  the  output  print  options.  The 
software  requirements  are  the  Oracle  Data  Base  Management  System  (DBMS), 
PC/MS-DOS,  and  the  Cost  Center  Analysis  and  Graphic  Utilities  programs,  all 
installed  on  the  hard  disk.  In  order  to  support  CCA  and  the  graphics  utilities  the 
following  utilities  are  required  as  well: 

The  CUL  library  from  Essential  Software  Incorporated.4 

Graphic  from  Scientific  Endeavours.5 

3.  STARTING  THE  SYSTEM 

The  first  step  to  begin  the  CCA  program  is  to  turn  the  computer  on.  This  is 
done  by  turning  the  switch  on  the  power  board.  At  the  DOS  command  line  type 
"Oracle"  to  activate  the  Oracle  DBMS.  This  system  is  essential  to  the  operation  of 
Cost  Center  Analysis.  Version  1.0  will  not  call  Oracle  first,  due  to  the  memory 
requirements.  It  is  hoped  in  later  versions  that  this  service  will  be  provided  for  the 
user. 


4C  Utilities  Library  User  Guide  ( Version  2.0)  ESI,  Maplewood,  NJ  07040,  1985. 

3Rome.  James  A.  and  Georse  O.  Keilev,  Graphic  Version  2.1,  Scientific 
Endeavours,  Rte.  4,  Box  ~9.  Kingston^  FN  5"“<v,  1985. 


Once  Oracle  has  displayed  its  logo  and  licensing  information,  type  "CCA"  to  load 
the  Cost  Center  Analysis  system.  This  places  the  user  at  the  main  menu. 

4.  MAIN  MENU 


COST  CENTER  ANALYSIS 

1.  Cost  Center  Information 

2.  Cost  Center  Information  Using 

Oracle  Command  Language  (SQL)  for  Ad  hoc 
Queries,  Inserts,  Deletes  and  Updates 

Selection: 

A  blank  line  exits  to  DOS 


Figure  C.l  Cost  Center  Analysis  Main  Menu. 

At  this  point  you  are  provided  two  options  (see  Figure  C.l).  If  you  select  option 
"1,"  you  will  be  provided  menus  with  preformatted  queries.  Using  these  menus 
simplifies  the  task  of  accessing  Oracle. 

At  times  the  menus  may  be  too  limiting  or  not  ask  the  right  questions;  therefore, 
option  "2"  allows  you  to  use  Oracle  more  directly  through  the  Oracle  User  Friendly 
Interface  (UFI).  To  use  the  UFI.  you  need  to  understand  the  Oracle  command 
language  to  some  degree.  In  the  last  section  of  this  appendix  we  show  examples  of 
how  to  use  the  command  language  to  develop  your  own  ad  hoc  queries,  make 
insertions,  deletions  or  drop  tables. 

After  exiting  option  "2,"  you  will  be  returned  to  the  A>  prompt  of  DOS.  If  you 
wish  to  reenter  the  system,  it  is  not  necessary  to  rerun  Oracle.  You  will  have  to  re¬ 
enter  "CCA"  to  return  to  the  top  menu  of  the  Cost  Center  Analysis  system. 

In  all  menus,  when  entering  options  the  system  will  not  accept  an  inappropriate 
response.  Inappropriate  values  will  cycle  the  user  back  to  the  menu  he  just  tried  to 
query  from.  The  system  also  requires  you  to  verify  your  responses.  If  you  wish  to 
change  your  answer,  enter  "N",  or  "n"  to  the  question  "Is  this  correct?".  The  system 
will  blank  your  response  and  you  can  enter  your  change. 
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A  blank  line  or  a  0  will  allow  you  to  exit  the  present  menu  and  return  to  the 
menu  directly  “above"  it. 

Note:  General  instructions  for  menus  will  not  be  repeated  under  each 
explanation  unless  they  differ  from  the  norm. 

5.  INFORMATION  AVAILABLE 


Figure  C.2  Information  Available  Menu. 

This  menu  (see  Figure  C.2)  identifies  the  classes  of  information  that  are  available 
to  you. 

Option  "1"  will  introduce  you  to  the  numerical  and  computational  information 
available.  This  is  the  budget  and  expense  information  provided  in  various  formats  and 
aggregations. 

Option  "2"  directly  addresses  the  Job  Order  information.  It  will  show  job  orders 
to  budget  and  cost  information. 

6.  BUDGET  VS  EXPENSES 

This  menu  allows  the  user  to  analyze  budget  vs  expenses  under  various 
aggregations  (see  Figure  C.3). 

Option  "1"  provides  the  user  with  Total  Budget  vs  Expenses  information  by  Cost 
Function,  Cost  Class,  Cost  Function  and  Cost  Class,  or  Cost  Center. 

Option  "2"  allows  the  user  to  closely  compare  budgeted  figures  to  actual  expense 
figures  by  either  Labor,  Material  or  Other. 
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BUDGET  VS  EXPENSES 

1.  Total  Budget  VS  Expenses  to  Date 

2.  Labor  or  Material  or  Other 

3.  Budget  by  Cost  Func/Cost  Class 

Selection: 

A  blank  line  exits 


Figure  C.3  Budget  vs  Expenses  Menu. 

Option  "Y  gives  the  user  the  budget  by  Cost  Function  and  Cost  Class  as  it 
would  appear  on  the  SBR-22A  summary  report: 

1.  A  title  will  appear  after  you  input  your  selection.  Press  any  key  to  continue. 

2.  Select  your  desired  response  to  the  print  option  prompt.  Note:  the  svstem  will 
not  echo  vour  response,  so  be  patient  if  it  appears  to  take  a  little  while.  The 
computer  'must  handshake  with  the  printer  and  this  takes  a  little  time. 

3.  After  the  screen  displavs,  Dressing  a  kev  will  display  the  next  screen.  Pressing  a 
“Q"  will  abort  the  resf  of  the  information  display' for  that  Cost  Function  a~nd 
start  the  first  page  of  the  next  cost  function's  budget. 

4.  After  each  Cost  Function's  budget  is  displayed  vou  will  be  asked  if  vou  want 
printed  output  for  the  next  screen. 

5.  After  the  last  Cost  Function  output,  vou  will  be  returned  to  the  Budget  vs 
Expenses  menu. 

7.  TOTAL  BUDGET  VS  EXPENSES 

The  first  option  gives  you  the  total  budget  vs  expenses  by  Cost  Function  (see 
Figure  C.4).  It  allows  you  to  produce  a  data  file  for  the  graphics  utilities  by  answering 
yes  to  the  graphics  output  question. 

The  second  option  gives  you  the  Total  Budget  vs  Expense  by  Cost  Class.  It  also 
can  produce  the  data  file  for  the  graphics  utility. 

The  third  option  provides  you  the  total  budget  vs  expenses  information  by  Cost 
Function  and  Cost  Class. 

The  last  option  outputs  the  Total  Budget  vs  Expenses  by  Cost  Center.  The 
graphics  data  file  is  written  if  the  user  so  selects. 

All  expense  data  is  of  the  most  current  date  entered  into  the  data  base. 
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TOTAL  BUDGET  VS  EXPENSES 

1.  Cost  Function 

2.  Cost  Class 

3.  Cost  Function  Cost  Class 

4.  Cost  Center 

Selection: 

A  blank  line  exits 


Figure  C.4  Total  Budget  vs  Expenses  Menu. 

CAUTION:  Options  "1"  and  "2"  write  to  the  same  data  file.  If  you  select  both 
to  create  the  graphics  file  during  the  same  session,  you  will  not  overwrite  but  append 
to  the  file.  The  graphics  utilities  are  not  designed  to  accept  both  types  of  data  in  the 
same  file.  It  is  best  to  have  one  or  the  other,  but  not  both  types  in  the  file.  Option  “4" 
writes  two  data  files  for  the  graphics  utilities. 

8.  BUDGET  VS  EXPENSES  (HOUR,  LABOR,  MATERIAL  OR  OTHERS) 


BUDGET  VS  EXPENSES 

1.  HOURS 

2.  LABOR 

3.  MATERIAL 

4.  OTHER 

Selection: 

A  blank  line  exits 


Figure  C.5  Budget  vs  Expenses  by  Hour,  Labor,  Material  or  Other. 


This  menu  provides  a  further  breakdown  of  budget  vs  expenses  by  Hours,  Labor, 
Material  or  Other  (see  Figure  C.5). 

Option  T  compares  budgeted  hours  to  expensed  hours  by  Cost  Function  Cost 

Class. 

Option  '2"  compares  budgeted  labor  to  expensed  labor  by  Cost  Function  Cost 

Class. 

Option  "3"  compares  budgeted  to  expensed  material  by  Cost  Function  Cost 

Class. 

Option  "4”  compares  budgeted  to  expensed  other  by  Cost  Function,  Cost  Class. 

9.  JOB  ORDER  INFORMATION  MENU 


JOB  ORDER  INFORMATION 

1.  Input  Cost  Function  #  Find  Job  Orders 

2.  Input  Cost  Class  #  Find  Job  Orders 


Selection: 

A  blank  line  exits 


Figure  C.6  Job  Order  Information  Menu. 

This  menu  allows  the  user  to  select  submenus  which  will  list  job  order  numbers 
associated  with  a  particular  Cost  Function,  Cost  Class  (see  Figure  C.6). 

Option  "1"  outputs  job  orders  of  the  selected  Cost  Function  number.  See  the 
Cost  Function  Input  Menu  (Figure  C.7) 

Option  "2“  outputs  job  orders  of  the  selected  Cost  Class  numbers.  See  Cost 
Class  Input  Menu  (Figure  CS). 

10.  JOB  ORDER  NUMBER  INPUT  MENU 

Enter  the  Cost  Function  portion  first,  and  press  <enter>  (see  Figure  C.9). 
Then  enter  the  Cost  Class  portion  of  the  number;  press  <  enter  >  .  Finally,  enter  the 
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INPUT  THE  COST  FUNCTION  NUMBER 


Selection: 


A  blank  line  exits 


Figure  C.7  Cost  Function  Number  Input  Menu. 


INPUT  THE  COST  CLASS  NUMBER 

Selection: 

A  blank  line  exits 


Figure  C.8  Cost  Class  Number  Input  Menu. 

Job  Order  Number  and  press  <  enter  >.  The  system  will  require  you  to  verify  your 
response.  If  you  wish  to  make  ctu.  i?es,  type  "N"  or  'n\  and  make  the  changes  by 
reentering  all  the  values.  Entering  a  blanks  will  return  you  to  the  Job  Order 
Information  Menu. 


141 


■yvV 


THE  JOB  ORDER  NUMBER 


1 


COST  FUNCTION  NUMBER 
COST  CLASS  NUMBER 
JOB  ORDER  NUMBER 


A  blank  line  exits 


I 

I 


Figure  C.9  Job  Order  Number  Input  Menu. 


1 1.  COST  FUNCTION  INPUT  MENU 

Enter  the  entire  four  digit  Cost  Function  number,  or  else  no  records  will  be 
selected  by  Oracle  (see  Figure  C.7).  Press  <  enter >  when  the  numbers  have  been 
inputed.  The  system  will  require  you  to  verify  your  response.  Respond  to  the  printed 
output  prompt  and  then  the  information  of  the  Cost  Function  will  be  displayed.  After 
the  information  display,  type  <  enter>  to  return  to  the  Job  Order  Information  menu. 

12.  COST  CLASS  INPUT  MENU 

Enter  the  two-digit  Cost  Class  number  (see  Figure  C.8).  Press  <  enter  >  after 
inputting  the  number.  The  system  will  ask  you  to  verify  the  response.  Respond  to  the 
"printed  output"  prompt  and  the  Job  Order  numbers  for  that  particular  cost  class  wall 
be  displayed.  A  blank  entry  returns  you  to  the  Job  Order  Information  menu. 

13.  GRAPHICS 

The  graphics  portion  of  this  system,  due  to  memory  constraints,  is  accessed 
outside  of  the  system  through  DOS  commands.  There  are  four  graphs  that  the  user 
may  view.  Each  graph  is  a  separate  file,  so  that  the  user  may  choose  which  graph  to 
display.  The  following  is  a  short  description  of  each  graph  and  the  files  they  access: 

BAR.C  is  executed  from  DOS  by  typing  BAR". 
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Figure  C.10  Single  Uudget  I)ar  Graph. 

This  module  produces  a  single  bar  graph,  representing  the  budget  of  each  Cost  Center 
(see  Figure  C.  10).  File  accessed:  GRAF 

PLOT.C  is  executed  from  DOS  by  tsping  "PLOT". 
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Figure  C.  1 1  Plot  of  Budget  and  Expenses. 


This  module  produces  a  line  graph.  The  solid  line  being  the  budget,  with  the  broken 
line  representing  the  expenses.  It  is  plotted  by  month  (see  Figure  C.ll).  Files 
Accessed:  GRAF1.  BLD 


Tripbar.c  is  executed  from  DOS  by  typing  "1  RIPBAR". 


Figure  C.12  Triple  Bar  Graph. 


This  module  produces  a  Triple  bar  graph.  The  middle  bar  represents  the  budget  lor 
each  cost  center,  left  bar  represents  the  expenses  and  the  right  bar  represents  the 
percentage  of  the  budget  expended  (see  Figure  C.12).  Files  Accessed:  GRAF 


Combo. c  is  executed  from  DOS  by  typing  "COMBO". 


4AR  APR  MAY  JUN  JUL  AUG  SEP 

f  Month 


If  the  user  is  more  experienced  and  plans  to  use  the  UFI  portion  of  the  system  with  the 
graphics  modules,  he  must  know  the  names  of  the  files  that  each  graphic  program 
accesses.  Please  take  note  of  the  above  information.  After  the  graph  has  completed 
execution,  a  beep  will  sound,  and  the  user  has  a  selection  of  options  that  he  may 
choose  from.  The  following  is  a  duplication  of  a  menu  that  will  appear  if  the  user 
presses  the  <  space  >  bar: 


l~>  large,  low  resolution  plot 
L  -  >  large.,  high  resolution  plot 
m  —  >  medium  sized,  high  resolution  plot 
M  —  >  medium  sized,  high  resolution  plot 
2  —  >  draw  2nd  on  screen 
q  >  quit  and  close  files 
z  —>  zoom 

w— >  zoom  with  window 
1-9  —  >  ship  n  pictures 
CR  -->  go  on  to  next  plot 


Figure  C.  14  Allowable  Modifications  of  Graphs. 

See  Figure  C.14  for  the  menu  oflisted  options  provided  the  user.  With  those  options, 
the  user  has  the  ability  to  zoom  in  for  more  detail  as  well  as  modify  the  graph 
produced. 

If  the  user  wishes  to  exit  the  graph  and  skip  the  above  menu,  he  will  just  press 
<  enter  >  . 

Samples  of  printed  output  of  all  graphs  can  be  found  on  the  following  pages. 

It  should  be  noted  that  these  programs,  while  short  structurally,  take 
approximately  3  to  4  minutes  to  complete  execution.  While  the  program  is  displaying 
the  graph  on  the  screen,  line  by  line.  ;t  is  creating  another,  faster  executing  file.  If  the 
user  executes  the  program  BAR.C  by  typing  'BAR”,  a  corresponding  file  named 
BAR.TKF  is  created.  This  file  is  executed  by  typing  “play  BAR.TKF'. 

This  file  is  only  a  replay  of  the 'program  BAR.C,  and  will  not  contain  current 
data  if  the  data  base  system  has  been  accessed  again.  The  advantages  of  having  a 
”.TKF”  file  is  speed.  If  the  user  wishes  to  review'  plotted  data  previously  created,  or  if 
the  graphic  display  is  being  used  in  a  presentation,  there  is  no  need  to  endure  the 
tedious  wait  of  the  main  program. 

The  play  option  is  provided  as  a  utility  with  the  Graphic  graphics  library. 
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14.  AD  HOC,  UPDATES,  DELETIONS,  MODIFICATIONS  WITH  ORACLE 
|  a.  Introduction 

j  Oracle,  through  L'FI,  provides  you  with  many  features  and  procedures, 

l  Information  can  be  extracted  and  displayed  in  many  different  ways.  The  menu  driven 

I  portion  of  this  system  allows  you  easy  access  to  some  of  the  information  provided 

through  this  system.  However,  all  queries  could  not  be  anticipated  and  some  people 
prefer  to  use  the  command  language  instead  of  the  menus.  For  these  people  we  have 
provided  the  option  of  using  L'FI  to  interface  with  Oracle.  The  L'FI  interface  can  also 
be  used  to  update  the  data  base,  delete  rows,  change  attributes  and  even  format 
;  reports.  We  will  give  you  a  brief  description  to  get  you  started.  For  further 

information  and  for  more  advanced  techniques,  see  the  Oracle  User  Manual  Vol.  I 
[Ref.  16]  that  comes  with  the  Oracle  data  base, 
b.  Getting  in  and  out 

The  first  thing  you  must  know  is  how  to  get  in  and  out  of  UFI.  You  must  be 
tn  the  same  directory  as  the  execute  file  CCA. EXE.  Then  make  sure  you  run  Oracle 
before  running  CCA.  Type  Oracle  at  the  DOS  command  prompt  as  shown: 

D>  ORACLE 

Then  type  CCA  at  the  prompt. 

D  >  CCA 

When  the  first  menu  appears  choose  2.  If  all  goes  well  the  next  prompt 
should  look  like  this: 

L'FI  > 

You  now  should  be  in  L'FI.  The  authorized  userid  and  password  were 
automatically  issued  in  the  call  to  L'FI.  When  you  are  done  and  wish  to  exit  type 
EXIT  at  the  L'FI  prompt. 

UFI  >  EXIT 

This  will  return  you  to  the  first  menu  again  where  you  can  reenter  L'FI.  use 
the  menu  driven  queries,  or  exit  to  DOS. 

c.  Ad  Hoc  Queries 

Once  you  are  in  L'FI  and  have  the  L'FI  prompt,  you  are  ready  to  begin.  First 
you  must  know  the  name  of  the  tables  you  are  dealing  with,  have  an  idea  of  the 
information  stored  in  each,  and  the  relationships  between  tables.  All  this  information 
is  contained  in  the  data  dictionary  (Appendix  A).  In  summary,  the  following  are  the 
names  of  the  tables  associated  with  CCA: 
l.  EXPENSE 
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•.v.v.v.v. 
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AV.  -.V,  . 
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2.  BUDGET 


The  simplest  query  to  make  will  give  you  all  the  information  in  a  particular 
table.  To  display  this  information  at  the  prompt  type: 

UFI>  SELECT  *  FROM  BUDGET;  This  means  select  all  the  columns 
from  the  table  BUDGET.  It  will  display  all  the  information  contained  in  the  table.  Be 
sure  to  end  each  query  with  a  semicolon. 

Perhaps  you  do  not  want  all  the  information  in  the  table  but  only  specific 
columns.  To  display  this  information  type  at  the  prompt: 

UFI>  SELECT  COST_FUN_NO,  COST_CL_NO,  STLABOR,  FROM 

BUDGET; 

This  will  display  three  columns  from  the  table  BUDGET,  namely  Cost 
Function  number,  Cost  Class  number,  and  Straight  Time  Labor  for  all  rows  in  the 
table.  Notice  the  commas  between  the  column  names.  There  is  no  comma  between 
the  last  column  name  and  the  key  word  FROM.  Once  again  the  statement  is  ended 
with  a  semicolon. 

If  you  do  no  want  all  the  rows  but  only  specific  rows,  you  can  limit  which 
ones  you  get  like  this: 

UFI>  SELECT  *  FROM  EXPENSE  WHERE  COST_FUN_NO  =  9112'; 


This  will  display  all  the  information  for  every  record  in  the  EXPENSE  table  for  cost 
function  9112.  The  word  of  number  must  be  exactly  as  it  is  in  the  data  base,  including 
capital  letters.  In  UFI,  if  you  forget  exactly  how  the  data  was  entered.  Oracle  cannot 
find  a  match.  Again  notice  the  semicolon  at  the  end  of  the  query. 

The  next  step  is  to  combine  what  we  have  learned  to  derive  even  more  specific 
information.  Here  is  an  example: 


UFI  >  SELECT  COST  FUN  NO, 
EXPENSE 

2  WHERE  COST_FUN_N O  = 

3  AND  COST_CL_NO  =  '54  ; 


COST_CL_NO,  STLABOR  FROM 
'9118' 


There  are  several  things  to  notice  on  this  query.  First,  it  takes  more  than  one  line. 
UFI  automatically  enters  the  numbers  for  each  line.  Commas  are  placed  only  between 


column  names,  but  not  between  STLABOR  and  the  key  word  FROM.  The  key  word 
AND  must  separate  the  predicates  after  the  where  statement.  The  values  that  you  are 
looking  for  must  be  in  the  same  format  as  the  data  is  stored,  first  letter  capitalized  and 
the  remaining  in  lower  case.  The  entire  query  finally  must  be  ended  with  a  semicolon. 

Now  you  can  go  and  look  for  specific  information  from  a  single  table.  But 
w'hat  if  you  want  information  that  is  contained  in  two  different  tables?  Do  you  have  to 
write  two  different  queries  comparing  the  first  to  the  second  to  find  the  information 
you  are  seeking?  No,  because  this  would  be  the  end  of  this  tutorial. 

d.  Joins 

Combining  tables  is  known  as  a  join.  To  join  tables  they  must  have  a 
common  attribute  (column).  The  name  can  be  different  but  the  values  must  be  stored 
the  same  way. 

Let's  look  at  an  example.  Suppose  you  want  to  look  at  budget  compared  to 
expenses  for  a  particular  date  that  is  in  the  data  base.  You  wont  to  join  BUDGET  and 
EXPENSE.  They  have  two  common  attributes  COST_FUN_NO  and  COST_CL_NO 
on  which  they  can  be  joined.  Lets  look  at  this  Oracle  statement. 

UFI>  SELECT  BUDGET.STHOURS,  BUDGET.STLABOR. 

EXPENSE. STHOURS, 

2  EXPENSE. STLABOR  FROM  BUDGET,  EXPENSE 

3  WHERE  BUDGET.COST.FUN.NO  «  EXPENSE.COST_FUN_NO 

4  AND  BUDGET.COST_CL_NO  =  EXPENSE.COST_CL_NO 

5  AND  DT  =  '31-OCT-86'; 

This  will  display  Straight  Time  Hours  and  Straight  Time  Labor  costs  for  BUDGET  and 
EXPENSE  values  where  the  date  DT  is  31  OCT  86.  Notice  the  attributes  that  are 
joined  on,  COST_FUN_NO  and  COST_CL_NO  are  both  explicitly  stated  in  the  join. 
The  name  of  the  table  before  the  name  of  the  attnbute  needs  to  be  there  only  if  the 
names  in  the  tables  are  the  same.  Thus  the  attribute  DT  in  EXPENSE  does  not  have 
to  be  written  as  EXPENSE. DT  because  there  is  no  DT  in  the  BUDGET  table: 
how'ever,  it  could  be  if  you  prefer  for  the  sake  of  clarity. 

e.  Mathematical  Manipulations 

The  next  topic  in  Ad  Hoc  Queries  is  how  to  add,  subtract,  multiply,  divide, 
find  the  maximum  and  minimum  numbers.  We  will  look  at  addition.  The  Other 
operators  work  in  the  same  manner. 
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To  add  a  column  of  numbers,  the  command  is: 

UFI>  SELECT  SUM(STLABOR)  FROM  BUDGET; 

or 

UFI>  SELECT  SUM(STLABOR),  SUM( MATERIAL),  SUM(OTHER) 

2  FROM  BUDGET; 

This  can  also  be  done  with  a  join: 

UFI>  SELECT  SUM(BUDGET.STHOUR),  SUM(EXPENSE.STHOUR) 

2  FROM  BUDGET,  EXPENSE 

3  WHERE  BUDGET. COST_FUN_NO  =  EXPENSE.COST_FUN_NO 

4  AND  BUDGET.COST_CL_NO  =  EXPENSE.COST_CL_NO 

5  AND  DT  =  '31-OCT-86'; 

Rows  can  also  be  summed  up: 

UFI>  SELECT  OTLABOR  +  STLABOR+  MATERIAL*  OTHER  FROM 
BUDGET; 

Or  you  can  sum  both  columns  and  rows  at  the  same  time. 

UFI  >  SELECT  SUM(OTLABOR)  +  SUM(STLABOR)  +  SUM(MATERIAL)  + 

2  SUM(OTHER)  FROM  BUDGET; 

All  of  the  mathematical  manipulations  are  performed  in  the  same  way.  Consult  the 
Oracle  User  Manual  for  more  advanced  mathematical  manipulations. 

f.  Group  By 

Another  useful  command  is  the  GROUP  BY  command.  It  is  especially  useful 
in  summarizing  information,  such  as  adding  columns.  Suppose  you  want  the  total 
overtime  hours  budgeted  by  each  cost  function  for  the  entire  year.  The  command  to 
display  this  information  is: 
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UFI>  SELECT  COST_FLrN_NO,SU M(OTHOURS)  FROM  BUDGET 
GROUP  BY  COST_FUN_NO; 

Without  the  GROUP  BY  COST_FUN_NO,  Oracle  would  not  know  how  to  display  the 
COST_FUN_NO  with  a  sum,  since  sum  returns  one  total  value  for  all  cost  functions. 
With  the  GROUP  BY  cost  function.  Oracle  will  return  a  sum  for  each  cost  function  as 
shown  in  Figure  C.15 


Figure  C.15  Output  of  Using  the  GROUP  BY  Command, 
g.  Sub  Queries 

A  sub  query  is  also  useful  in  summarizing  data.  A  sub  query  is  using  another 
select  statement  to  return  a  value  for  the  main  query.  An  example  might  make  this  a 
little  clearer. 

Suppose  you  want  to  find  the  total  expenses  to  date  but  you  do  not  know  the 
last  date  of  the  data  in  the  data  base.  You  could  make  two  separate  queries,  one  to 
find  out  what  the  maximum  date  is  and  one  to  find  the  sums  for  that  date.  Or  you 
could  combine  it  into  one  query  as  shown: 

UF1  >  SELECT  SUM(OTLABOR  +  STLABOR  +  MATERIAL  +  OTHER) 

FROM  EXPENSE  ’ 

2  WHERE  DT  =  (SELECT  MAX(DT)  FROM  EXPENSE); 

The  sub  query  returns  the  maximum  value  of  the  date  DT  which  is  then  used  to  find 
the  sum.  Notice  that  the  rows  are  added  first  and  then  the  sum  of  that  resulting 
column  is  found. 
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Sub  queries  can  also  return  a  set  of  values.  Refer  to  the  user  manual  [Ref.  16] 
for  more  on  sub  queries. 

h.  Updates 

As  stated  previously,  the  updates  will  be  handled  through  electronic  transfers 
of  data  from  the  Prime  Network  computer.  The  manager  does  have  the  option  of 
updating  on  his  own,  whether  to  make  his  data  current  before  the  update,  or  possibly 
to  assist  in  answering  "What  if'  type  questions.  The  manager  could  change  expense 
figures,  or  budget  figures  to  see  what  effects  changes  have  and  then  graph  out  the 
results. 

Updates  can  also  be  used  to  scale  values  or  for  global  type  changes.  Or  for 
example,  it  could  be  used  to  change  particular  values.  The  following  statement 
multiplies  each  number  in  STHOURS  of  the  BUDGET  table  by  60  to  find  the  number 
of  minutes  budgeted  for  cost  function  9118. 

UFI>  UPDATE  BUDGET  SET  STHOURS  =  HOURS  *  60 

2  WHERE  COST_FUN_NO  =  9118'; 

Update  can  also  be  used  to  change  one  value: 

UFI>  UPDATE  BUDGET  SET  MATERIAL  =  6465 

2  WHERE  COST_FUN_NO  -  '9116' 

3  AND  COST_CL_NO  -  '97'; 

i.  Deletions 

Deletions  will  generally  be  taken  care  of  by  the  updates  from  the  Prime 
Network,  semiweekly.  You  can  make  your  own  deletions  if  you  wish,  however. 

UFI>  DELETE  FROM  BUDGET 

2  WHERE  COST_FUN_NO  =  '9112' 

3  AND  COST_CL  _NO  =  02'; 

This  statement  would  delete  the  row'  in  the  table  BUDGET,  where  Cost  Function  is 
9112  and  Cost  Class  is  02.  The  same  command  given  on  the  EXPENSE  table  would 
delete  a  row  for  every  date  whose  Cost  Function  is  9112  and  whose  Cost  Class  .s  i>2. 
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j.  Modifications 

Modifications  to  the  existing  data  base  is  not  recommended  on  individual 
bases.  Since  updates  come  from  the  Prime  Network,  any  additions  or  deletions  of 
columns  would  make  these  updates  impossible,  unless  all  systems  and  the  Prime 
Networks  reports  in  which  the  data  is  derived  are  also  modified.  Under  special 
circumstances  a  modification  may  be  desirable.  To  accomplish  this  the  ALTER 
command  is  used. 

UFI>  ALTER  TABLE  BUDGET 

2  ADD  (YEAR  DATE); 

The  data  would  then  have  to  be  inputted  using  the  UPDATE  command  described 
above. 

Tables  can  also  be  created  and  destroyed  by  the  CREATE  TABLE  and  the 
DROP  TABLE  commands  respectively.  The  easiest  way  to  create  a  table  is  to  create 
UFI  files  as  presented  in  Appendix  A.  A  sample  of  how  to  run  UFI  files  is  shown 
below. 

1.  At  the  DOS  prompt  run  Oracle. 

CORACLE 

2.  When  Dos  Prompt  returns  tvpe  UFI  followed  by  the  at  svmbol  above  the  2. 
and  then  the  UFI  filename  as  shown. 

C:UFI  @BUDGET.UFI 

3.  This  will  create  vour  table,  insert  the  data  and  create  anv  indexes  as  vou  entered 
it  into  the  UFI  file.  See  Appendix  A  for  sample  UFI  files. 


The  CREATE  command  is  used  as  shown  below: 

UFI  >  CREATE  TABLE  PROJ 

2  (PROJNO  NUMBER  NOT  NULL, 

3  NAME  CHAR(IO)); 


A  different  view  or  subset  of  a  table  can  also  be  created  in  a  similar  fashion: 


UFI  >  CREATE  VIEW  TELEPHONE  AS 
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2  SELECT  LAST,  FIRST,  PHONE 

3  FROM  EMPLOYEE 

4  WHERE  EID  <  '400000000'; 

This  table  would  allow  you  to  look  at  the  telephone  numbers  of  employees 
whose  EID  is  less  than  400000000. 

The  DROP  command  is  used  as  follows: 

UFI  >  DROP  TABLE  PROJ; 

The  table  called  PROJ  will  no  longer  be  in  the  data  base  unless  recreated, 
k.  Other  Goodies 

As  mentioned  earlier.  Oracle  is  a  powerful  data  base  management  system  with 
a  variety  of  options  and  commands.  Some  of  the  more  interesting  ones  would  be  ways 
to  present  the  data  in  a  better  format.  Although  the  CCI  module  in  the 
microcomputer  implementation  of  CCA  does  much  of  this  for  you,  you  could  dress  up 
those  answers  to  queries  or  even  those  provided  in  the  CCI. 

A  few  examples  of  the  basic  formatting  commands  include  COLUMN, 
TTITLE,  BTITLE,  BREAK,  and  COMPUTE.  We  shall  look  mostly  at  COLUMN 
and  TTITLE  here  but  be  aware  that  these  Other  commands  exist  if  you  need  them. 
COLUMN  formats  a  column's  heading  and  data.  Instead  of  having  COST_FUN_NO 
printed  out  on  a  report,  you  can  change  it  to  COST  FUNCTION  as  shown  below: 

UFI  >  COLUMN  COST_FUN_NO  HEADING  COST  FUNCTION 

UFI  >  SELECT  COST_FUN_NO,  SUM(STLABOR)  FROM  BUDGET 
2  GROUP  BY  COST_FUN_NO; 

TTITLE  can  then  be  used  to  place  a  title  on  the  page. 

UFI  >  TTITLE  B  U  D  G  E  T  |  |  BY  COST  FUNCTION" 

BTITLE  puts  a  title  at  the  bottom  of  a  page. 

3REAK  breaks  up  the  report  into  groups  of  rows. 


COMPUTE  computes  totals  and  subtotals  on  the  report. 


If  you  are  interested  in  these  commands  see  the  User  Manual  for  Oracle  [Ref.  16J. 

1.  Editing  in  UFI 

To  end  this  tutorial  on  the  use  of  UFI,  here  are  some  tips  on  editing.  The  key 
commands  are  CHANGE,  LINE,  RUN,  LIST,  INP,  AND  DEL.  To  demonstrate 
these  commands  let  us  take  a  select  statement: 

UFI  >  SELECT  STLABOR,  MATERIAL 

2  FROM  BUDGET 

3  WHERE  COST_FUN.NO  =  '9: 18' 

4  AND  COST_CL_NO  >  '91'; 

If  you  run  this  and  you  wish  to  change  something  either  because  of  an  error  or  to  get  a 
variation  on  the  information,  you  do  not  have  to  type  the  command  in  all  over. 

UFI  >  LIST 

This  will  list  the  last  command  you  typed  in.  type: 


UFI  >  LI 

That  will  take  you  to  line  1  and  display: 

1*  SELECT  STLABOR,  MATERIAL 

UFI  >  CHANGE/MATERIAL/OTHER/ 

1*  SELECT  STLABOR,  OTHER 

Tnis  command  will  change  Material  to  Other  in  line  1.  To  execute  this  type: 
UFI  >  RUN 
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This  will  execute  the  entire  statement.  If  you  w«.nt  to  add  lines  to  the  current  SQL 
command  use  the  INP  command. 


UFI>  INP 

5  GROUP  BY  COST_CL_NO 


This  will  add  this  line  to  the  command.  Del  will  delete  the  current  line  marked  by  the 


UFI>  LIST 

SELECT  LABOR,  MATERIAL 

2  FROM  BUDGET 

3  WHERE  COST_FUN_NO  =  '9118' 

4  AND  COST_CL_NO  >  '91' 

5*  GROUP  BY  COST_CL_XO; 

UFI  >  DEL  3 


Line  5  is  now  deleted  and  this  SQL  statement  can  be  run. 

This  tutorial  briefly  describes  a  procedure  that  can  be  followed  if  you  choose 
to  interface  with  Oracle  at  the  command  level.  Remember  that  statements  must  end 
with  a  semicolon  and  that  if  ail  else  fails,  use  the  Oracle  User  Manual  [Ref.  16].  The 
next  page  summarizes  the  procedures  necessary  to  access  the  Ufl  and  key  commands 
to  issue  UFI  and  SQL  commands. 

m.  Summary  of  UFI  and  SQL  Commands  for  Command  Level  Processing 

1.  Turn  on  machine  and  allow  to  boot  up. 

2.  Computer  boots  up  onto  the  A:  or  C:  disk  drive  depending  on  the  particular 
configuration. 

3.  Type  in  CCA  at  the  appropriate  prompt  as  shown 

C>  CCA 

4.  The  first  menu  gives  vou  a  choice  of  either  menu  driven  or  command  line. 
Choose  2  command  line. 

5.  The  following  is  a  list  of  commands  and  the  formats  for  using  them: 

SELECT  ATTRIBUTE  1, A TTRIBUTE2...  FROM  TABLENAME 
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WHERE  ATTRIBUTE  1  -  VALUE' 

AND  ATTRIBUTE2  -  (SELECT  ATTRIBUTE2  FROM  TABLENAME 
WHERE  TIME  -  MAX(TIME); 

UPDATE  TABLENAME  SET  ATTRIBUTE  1  =  ATTRIBUTE  1  100 

WHERE  ATTRIBUTE!  >  10000; 

JOINS: 


SELECT  ATTRIBUTE1,  ATTRIBUTE:.  ATTRIBUTE3,... 
FROM  TABLENAME1,  TABLENAME2 
WHERE  ATTRIBUTE  1  -  ATTRIBUTE:-. 


APPENDIX  D 

CPL  AND  TELL-A-GRAF  PROGRAMS  FOR  PRIME  MINICOMPUTER 


I.  CPL  PROGRAMS 
a.  PR. CPL 
/*(PR. CPL)  PREPARE  REPORTS 

/*  PROVIDE  USER  WITH  REPORT  PRODUCING  CAPABILITY  WITH  TEL-A-GRAF 
ScARGS  ANS 

/*D I SPLAY  TOP  MENU 
R  DT5 

/*GET  USER  RESPONSE  AND  VALIDATE 
&SET_VAR  FLAG  FALSE  /*  INITIALIZE  FLAG  TO  FALSE 
&DO  &UNTIL  %FLAG%  =  TRUE 

&SET_VAR  ANS  :=  [RESPONSE  ‘Select  One1] 

&DO  CHECK  &LIST  S  T  Q 

&IF  %ANS%  =  %CHECK%  &THEN  &SET.VAR  FLAG  :=  TRUE 
&END 

&IF  %FLAG%  =  FALSE  &THEN  &SET_VAR  ANS  [RESPONSE  'Select 

One'] 

&END 

&IF  %ANS%  =  ' T 1  &THEN  R  CTEL 
ScIF  %ANS%  =  ’  Q '  &THEN  ScRETURN 
&RETURN 


b.  DT5.CPL 

/^DISPLAY  TOP  display  top  menu 
R  NL2  27 

TYPE  1  'T  -  TEL-A-GRAF' GRAPHICS 

TYPE  '  'Q  -  QUIT 

R  NL2  10 
ScRETURN 
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c. 


NL2.CPL 


&ARGS  JUMP 

&D0  M  s*  0  &T0  %JUMP%  &BY  1 
TYPE 
&END 
&RETURN 

d.  CTEL.CPL 

/*(CTEL.CPL)  CALL  TEL-A-GRAF 
&D0  &UNTIL  %FINISH%  =  TRUE 

&SET.VAR  ANSWER  [QUERY  'Enter  TEL-A-GRAF  at  COMMAND  LEVEL'] 
&IF  %ANSWER%  =  FALSE  &THEN 
R  MANTEL 
&ELSE 

R  FREE 

&SET_VAR  FINISH  :=  [QUERY  'Finished'] 

&END 

&RETURN 


e.  MANTEL. CPL 

/* (MANTEL. CPL)  MANIPULATE  TEL-A-GRAF 
/*Select  data,  type  of  graph  and  open  TEL-A-GRAF 
&SET.VAR  COSTCEN  :=  [RESUME  SCC] 

&SETJ7AR  PLOTCODE  :=  [RESUME  SPLT] 

&SETJ7AR  PLOTOPT  :=  [RESUME  SPLO] 

R  OPTEL  %COSTCEN%  %PLOTCODE%  %PLOTOPT% 

&RETURN 


n 


f.  SCC. CPL 

/*(SCC.CPL)  SELECT  COST  CENTER 

/^Select  the  desired  cost  center  code  for  use  with  TEL-A-GRAF 
R  DCC 

&SETJ/AR  ANS  :=  [RESUME  VCC] 


$ 
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&RESULT  %ANS% 

&RETURN 

g.  DCC.CPL 

/* (DCC.CPL)  DISPLAY  COST  CENTER 

/★Display  the  cost  centers  that  can  be  graphed  with  TEL-A-GRAF 
R  NL2  13 

TYPE  '  'CHOOSE  COST  CENTER 

R  NL2  3 

TYPE  '  '1-110 

R  NL2  10 

&RETURN 

h.  VCC.CPL 

/*(VCC.CPL)  VALIDATE  COST  CENTER  CODE 

/*  Request,  get  and  validate  the  user  response  to  the  Cost  Center 
menu 

&SET_VAR  ANS  :=  [RESPONSE  'Select  One'] 

&SET_VAR  FLAG  :=  FALSE  /^INITIALIZE  FLAG  TO  FALSE 
&DO  &UNTIL  %FLAG%  =  TRUE 
&DO  CHECK  &LIST  1 

&IF  %ANS%  =  %CHECK%  &THEN  &SET_VAR  FLAG  :=  TRUE 
&END 

&IF  %FLAG%  =  FALSE  &THEN  &SET_VAR  ANS  :=  [RESPONSE  'SelectOne'] 
&END 

&RESULT  %ANS% 

&RETURN 

i.  SPLT.CPL 
/*(SPLT.CPL)  SELECT  PLOT 

/*The  user  is  given  the  ability  to  select  the  type  of  graph  TEL-A-GRAF 
/*will  produce. 

R  DPLT 
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&SET_VAR  ANS  :=  [RESUME  VPLT] 

&RESULT  %AN5% 

&RETURN 

j.  DPLT.CPL 

/*(DPLT.CPL)  DISPLAY  PLOT 

/*Display  the  choices  for  the  type  of  plot  available  to  the  user  RNL2 
10 

TYPE  '  'GRAPH  PLOT  CODE  SELECTIONS: 

R  NL2  4 

TYPE  '  'A  -  PLOT  OF  EXPENSE  TO  BUDGET  WITH 

TYPE  1  1  BARCHART  OF  BUDGET  OVERLAYED  ON 

THE 

R  NL2  1 
TYPE  ' 

TYPE  1 
R  NL2  1 
TYPE  1 
R  NL2  10 
&RETURN 

k.  VPLT.CPL 

/*(VPLT.CPL)  VALIDATE  PLOT  CODE 

/*Request,  get  and  validate  the  user  response  to  the  Plot  Codemenu 
&SET.VAR  ANS  :=  [RESPONSE  'Select  One'] 

&SET.VAR  FLAG  :=  FALSE  /^INITIALIZE  FLAG  TO  FALSE 
&DO  &UNTIL  %FLAG%  =  TRUE 
&DO  CHECK  &LIST  A  3  C 

&IF  %ANS%  =  %CHECK%  &THEN  &SET_VAR  FLAG  :  =  TRUE 

&END 

&IF  %FLAG%  =  FALSE  &THEN  &SET_VAR  AJJS  :=  -RESPONSE  'Select  One'] 
&END 

&RESULT  %ANS% 

Ib2 


'B  -  BARCHART  BY  COST  FUNCTION/COST  CLASS  OF 
'  EXPENSE  TO  BUDGET 

'C  -  COMPOSITE  VARIANCE  BARCHARTS 


1  unw  vi  ^wr.  v.  vtv.  v.Mnr.'v 


&RETURN 


nrvn  .  r»  v»  w~»  w.  ■■  u  »  % 


1.  SPLO.CPL 

/*(SPL0.C?L)  SELECT  PLOT  OPTIONS 

/^Select  the  option  to  plot  the  total  cost  center  or  a  cost  function 
/*  within  it  . 

R  DPLO 

&SET_VAR  ANS  :=  [RESUME  VPLO] 

&RESULT  %ANS% 

&RETURN 


m.  DPLO.CPL 

/*(DPLO . CPL)  DISPLAY  PLOT  OPTIONS 

/^Display  the  menu  cost  functions  that  can  be  plotted  under  the 
/*  cost  center  and  for  the  plot  type  selected 
R  NL2  10 


TYPE  1 
R  NL2  2 


'PLOT  OPTIONS: 


R  NL2  10 
&RETURN 
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TYPE  ' 

'A 

- 

TOTAL 
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'T 

TYPE  ' 

'2 

- 
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TYPE  ' 

'3 
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- 
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n.  VPLO.CPL 

/*{ VPLO.CPL)  VALIDATE  PLOT  OPTIONS  CODE 

/^Request,  get  and  validate  the  user  response  to  the  Plot  Options  menu 
&SET_VAR  ANS  :=  [RESPONSE  'Select  One1] 

&SETJ/AR  FLAG  :=  FALSE  /^INITIALIZE  FLAG  TO  FALSE 
&DO  &UNTIL  %FLAG%  =  TRUE 

&DO  CHECK  &LIST  A23456789 

&IF  %ANS%  =  %CHECK%  &THEN  &SET_VAR  FLAG  :=  TRUE 
&END 

&IF  %FLAG%  =  FALSE  &THEN  &SET_VAR  ANS  :=  [RESPONSE  'Select  One'] 
&END 

&RESULT  %ANS% 

&RETURN 

0.  OPTEL.CPL 

/* {OPTEL.CPL)  OPEN  TEL-A-GRAF 

/*Open  TEL-A-GRAF  and  input  the  user's  graph  selection.  If  Free 
/*Form  is  selected  the  user  will  input  the  graph  selections.  &ARGS 
COSTCEN;  PLOTCODE;  PLOTOPT 
&SET_VAR  SECONDATA  :=  " 

&SET_VAR  THIRDINCLUDE  :=  " 

&SETJ7AR  FOURTHINCLUDE  " 

& IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1AA  &THEN 
&D0 

&SET_VAR  DATAFILE  ;=  "BE110" 

5tSET_VAR  SECONDATA  :=  "B11Q" 

&SETJ7AR  INCLUDEFILE  :=  "EX2" 

&SET_VAR  SECOND INCLUDE  :=  "Bl" 

SEND 

&IF  %C0STCEN%%PL0TC0DE%%PL0T0PT%  =  1A2  &THEN 
&D0 

&SET_VAR  DATAFILE  :=  "BE112" 

&SET_VAR  SECONDATA  :=  "B110" 

&SETJ7AR  INCLUDEFILE  :=  "EX2" 
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&SETJ/AR  SECONDINCLUDE  :=  "EX112" 
&SET_VAR  THIRDINCLUDE  :=  "Bl" 

&SET.VAR  FOURTHINCLUDE  :=  " 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A3  &THEN 
&DO 

&SET.VAR  DATAFILE  :=  "BE113" 

&SET.VAR  SECONDATA  .=  "B110" 

&SET_VAR  INCLUDEFILE  s=  "EX2" 

&SET_VAR  SECONDINCLUDE  s=  "EX113" 
&SET.VAR  THIRDINCLUDE  s=  “Bl" 

&SETJ7AR  FOURTHINCLUDE  :=  " 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  *  1A4  &THEN 
&DO 

&SET.VAR  DATAFILE  s=  "BE114" 

&SET_VAR  SECONDATA  :  =  "BUO" 

&SET_VAR  INCLUDEFILE  :=  "EX2" 

&SET.VAR  SECONDINCLUDE  :  =  "EX114" 
&SET.VAR  THIRDINCLUDE  s=  "Bl" 

&SET_VAR  FOURTHINCLUDE  s=  " 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A5  &THEN 
&DO 

&SET.VAR  DATAFILE  s=  "BE115" 

&SETJ/AR  SECONDATA  :  =  "BllO" 

&SET_VAR  INCLUDEFILE  :=  "EX21' 

&SET_VAR  SECONDINCLUDE  s=  "EX115" 
&SET_VAR  THIRDINCLUDE  s=  "Bl" 

&SET..VAR  FOURTHINCLUDE  :  =  1 ’ 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  *  1A6  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE 116" 

&SET  VAR  SECONDATA  :=  "BllO" 


&SETJ7AR  INCLUDEFILE  :=  "EX2" 

&SET.VAR  SECONDINCLUDE  :=  "EX116" 
&SET_VAR  THIRD INCLUDE  :=  "Bl" 

&SET_VAR  FOURTHINCLUDE  s=  " 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  *  IA7  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE 11 7" 

&SET_VAR  SECONDATA  :  =  "BllO" 

&SET_VAR  INCLUDEFILE  :=  "EX2" 

&SET.VAR  SECONDINCLUDE  s=  "EX117" 
&SET_VAR  THIRDINCLUDE  :=  "31" 

&SET_VAR  FOURTHINCLUDE  :  =  1 ' 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A8  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE118" 

&SET_VAR  SECONDATA  :=  "BllO" 

&SET_VAR  INCLUDEFILE  :=  "EX2" 

&SET_VAR  SECONDINCLUDE  :=  "EX118" 
&SET_VAR  THIRDINCLUDE  :=  "Bl" 
&SET_VAR  FOURTHINCLUDE  :=  ' 1 
SEND 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A9  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE119" 

&SET_VAR  SECONDATA  :  =  "BllO" 

&SET_VAR  INCLUDEFILE  :  =  "EX2" 
&SET_VAR  SECONDINCLUDE  :=  "EX119" 
&SET.VAR  THIRDINCLUDE  "Bl" 
&SET_VAR  FOURTHINCLUDE  i=  " 

SEND 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1BA  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BBE110" 
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&SET_7AR  INCLUDEFILE  :  =  "B4" 

&SETJ7AR  SECOND INCLUDE  " 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B2  &THEN 
&DO 

&SET_7AR  DATAFILE  :=  "BBE112" 

&SETJ7AR  INCLUDEFILE  :=  "B4" 

&SET.7AR  SECONDINCLUDE  :=  ,'B112M 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B3  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BBE113" 

&SETJ7AR  INCLUDEFILE  :=  "B4" 

&SETJ7AR  SECONDINCLUDE  :=  "B113" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLQTOPT%  =  1B4  &THEN 
&DO 

&SETJ7AR  DATAFILE  :=  "BBEI14" 

&SET.7AR  INCLUDEFILE  :  =  "B4" 

&SETJ7AR  SECONDINCLUDE  :=  "B114" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B5  &THEN 
&DO 

&SETJ/AR  DATAFILE  :=  "BBE115" 

&SETJ7AR  INCLUDEFILE  :=  "34" 

&SETJ7AR  SECONDINCLUDE  :=  "B115" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B6  &THEN 
&DO 

5tSET_7AR  DATAFILE  :=  "BBEII6" 

&SETJ7AR  INCLUDEFILE  :=  "B4" 

&SETJ7AR  SECONDINCLUDE  :=  "B116" 

&END 

&IF  %COSTCEN%%PLOTCODE“s%PLOTOPT%  =  1B7  &THEN 


&SET_VAR  DATAFILE  :=  "BBE117" 

&SETJ7AR  INCLUDEFILE  :=  "B4" 

&SET_VAR  SECOND INCLUDE  :=  "B117" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B8  &THEN 
&DO 

&SETJ/AR  DATAFILE  :=  "B8E118" 

&SET_VAR  INCLUDEFILE  :  =  "B4" 

&SET_VAR  SECONDINCLUDE  :=  "B118" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B9  &THEN 
&DO 

&SETJ/AR  DATAFILE  :=  "BBE119" 

StSET_VAR  INCLUDEFILE  :=  "B4" 

&SETJ/AR  SECONDINCLUDE  :=  "B119" 

&END 

ScIF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1CA  &THEN 
&DO 

&SETJ/AR  DATAFILE  :=  "PB110" 

&SETJ7AR  INCLUDEFILE  :  =  "PERBAR" 
&SETJ7AR  MESSAGE  :=  "9110" 

StSET_7AR  SECONDATA  :=  "NB1I0" 

ScSET.VAR  SECONDINCLUDE  :=  "NORBAR" 
&SETJ/AR  THIRDATA  :=  "VB110" 

&SETJ/AR  THIRDINCLUDE  :=  "VARBAR" 
&SET.7AR  FOURTHDATA  :=  "PV110" 
&SET_7AR  FOURTHINCLUDE  :=  "PERVAR" 
SEND 

ScIF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C2  &THEN 
<SdDO 

&SETJ/AR  DATAFILE  :  =  "PB112" 

&SET_VAR  INCLUDEFILE  :=  "PERBAR" 
&SET_VAR  SECONDATA  :=  "NB112" 

*SET_7AR  SECONDINCLUDE  :=  "NORBAR" 
&SET_7AR  THIRDATA  :=  "VB112" 


&SET_VAR  THIRDINCLUDE  :=  "VARBAR" 
&SET_VAR  FOURTHDATA  :=  "PV112" 
&SET.VAR  FOURTHINCLUDE  :=  "PERVAR" 
&SET_VAR  MESSAGE  :=  "9112" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C3  &THEN 
&DO 

&SET_VAR  DATAFILE  :  =  "PB113" 

&SET.VAR  INCLUDEFILE  :  =  "PERBAR" 
&SET_VAR  SECONDATA  :=  "NB113'‘ 

&SET_VAR  SECONDINCLUDE  :  =  "NORBAR" 
&SET_VAR  THIRDATA  :=  "VB113" 

&SET.VAR  THIRDINCLUDE  :=  "VARBAR" 
&SET_VAR  FOURTHDATA  :=  "PV113" 
&SET.VAR  FOURTHINCLUDE  :=  "PERVAR" 
&SET.VAR  MESSAGE  :=  "9113" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C4  &THEN 
&DO 

&SET_VAR  DATAFILE  "PB114" 

&SET_VAR  INCLUDEFILE  s*  "PERBAR" 
&SET_VAR  SECONDATA  :=  "NB114" 

&SETJ/AR  SECONDINCLUDE  :=  "NORBAR" 
&SET.VAR  THIRDATA  :=  "VB114" 

&SET_VAR  THIRDINCLUDE  :  =  "VARBAR" 
&SET_VAR  FOURTHDATA  :  =  "PV114" 
&SET_VAR  FOURTHINCLUDE  :=  "PERVAR" 
&SET.VAR  MESSAGE  :=  "9114" 

&END 

StIF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C5  iTHEN 
&DO 

&SET_VAR  DATAFILE  •.=  "PB115" 

&SET_VAR  INCLUDEFILE  :*  "PERBAR" 
&SET_VAR  SECONDATA  :=  "NB115" 

&SETJ/AR  SECONDINCLUDE  :=  "NORBAR" 
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&SETJ7AR  THIRDATA  :=  "VB115" 

&SETJ7AR  THIRDINCLUDE  s=  "VARBAR" 
&SET_VAR  FOURTHDATA  :=  "PV115" 

&SET.VAR  FOURTHINCLUDE  :=  "PERVAR" 
6tSET_VAR  MESSAGE  :  =  "9115" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C6  &THEN 
&DO 

&SET_VAR  DATAFILE  s  =  "PB116" 

&SET_VAR  INCLUDEFILE  s=  "PERBAR" 
&SET_VAR  SECONDATA  :=  "NB116" 

&SET_VAR  SECONDINCLUDE  :=  "NORBAR" 
&SET_VAR  THIRDATA  •.=  "VB116" 

&SET_VAR  THIRDINCLUDE  :=  "VERBAR" 
&SET_VAR  FOURTHDATA  :*  "PV116" 
&SET_VAR  FOURTHINCLUDE  :  =  "PERVAR" 
&SET_VAR  MESSAGE  :=  "9116" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C7  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "PB117" 

&SET_VAR  INCLUDEFILE  -.=  "PERBAR" 
&SET..VAR  SECONDATA  "NBll?" 

&SETJ7AR  SECONDINCLUDE  :=  "NORBAR" 
&SETJ/AR  THIRDATA  :=  "VB117" 

&SET_VAR  THIRDINCLUDE  :=  "VERBAR" 
&SET_VAR  FOURTHDATA  :=  "PVll?" 
&SET_VAR  FOURTHINCLUDE  :=  "PERVAR" 
&SETJ/AR  MESSAGE  :  =  "9117" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOFT%  =  1C8  &THEN 
&DO 

&SETJ/AR  DATAFILE  :=  "PB113" 

&SET_VAR  INCLUDEFILE  :=  '  FEFBAR" 

&SET  VAR  SECONDATA  :=  "NBI13" 


&SET.VAR  SECONDINCLUDE  :=  "NOR8AR" 

&SET.VAR  THIRDATA  :  =  "VB118‘' 

&SETJ/AR  THIRDINCLUDE  :=  "VERBAR" 

&SETJ/AR  FOURTHDATA  s=  "PV118" 

&SET.VAR  FOURTHINCLUDE  :=  "PERVAR" 

&SETJ/AR  MESSAGE  :=  "9118" 

&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C9  &THEN 
&DO 

&SET.VAR  DATAFILE  :=  "PB119" 

&SET_VAR  INCLUDEFILE  :  =  "PERBAR" 

&SETJ7AR  SECONDATA  "NB119" 

&SET_VAR  SECONDINCLUDE  :  =  "NORBAR" 

&SETJ7AR  THIRDATA  :=  "VB119" 

&SETJ/AR  THIRDINCLUDE  :=  "VERBAR" 

&SETJ/AR  FOURTHDATA  :=  "PV119" 

&SETJ/AR  FOURTHINCLUDE  •.=  "PERVAR" 

&SETJ/AR  MESSAGE  :=  "9119" 

&IF  %SECONDINCLUDE%  =  1 •  &THEN  R  SINGLE  %DATAFILE%  %INCLUDEFILE% 

&ELSE  &IF  %SECONDATA%  =  1 1  &THEN 

R  DOUBAR  %DATAFILE%  %INCLUDEFILE%  %SECONDINCLUDE% 

&ELSE  &IF  %THIRDINCLUDE%  =  1 '  &THEN 

R  DOUBLE  %DATAFILE%  %S£CONDATA%  %INCLUDE%  %SECONDINCLUDE% 
%SECOMDINCLUDE% 

iELSE  ScIF  %FOURTHINCLUDE%  =  1  1  &THEN 

R  TRIPLE  %DATAFILE%  %SECONDATA%  %INCLUDEFILE% 
%SECONDINCLUDE%  %THIRDINCLUDE% 

&ELSE  R  QUAD  %DATAFILE%  %SECONDATA%  %THIRDATA% 

%FOURTHDATA% 

%INCLUDEFILE%  %SECONDINCLUDE%  ^THIRDINCLUDE0® 
%FOURTHINCLUDE%  %MESSAGE% 

&RETURN 


p.  FREE . CPL 

/*( FREE. CPL)  FREE  FORM  INPUT  TO  TEL-A-GRAF 

/*Allow  the  experienced  user  to  manipulate  TEL-A-GRAF  using  it's 

commands 

5.3  TAG 

&TTY 

SEND 

&RETURN 

q.  SINGLE. CPL 

/*( SINGLE. CPL)  SINGLE  INCLUDE  FILE 

/*Allows  user  to  input  a  datafile  and  include  file  to  TEL-A-GRAF, 
having 

/^little  or  no  knowledge  of  TEL-A-GRAF  commands. 
xARGS  DATAFILE;  INCLUDEFILE 

5.3  TAG 

DATA  FILE  IS  %DATAFILE%. 

INCLUDE  %INCLUDEFILE%. 

SUBPLOT  1. 

DRAW  1. 

ScEND 

iRETURN 

r.  DOUBLE. CPL 

/*( DOUBLE. CPL;  DOUBLE  DATA  AND  INCLUDE  FILES  /*Allows  the  user  to 
input  two  include  files  to  TEL-A-GRAF  with  little  or  no 
/^knowledge  or  experience  with  TEL-A-GRAF  commands. 
xARGo  DATAFILE:  SECCNDATA :  INCLUDEFILE;  SECONDINCLUDE 

5.3  TAG 

DATA  FILE  IS  %DATAFILE%. 

INCLUDE  %INCLUDEFILE%. 

SUBPLOT  I. 

DATAFILE  IS  ^SECONDATAV 
INCLUDE  %SECDNDINCLUDE%. 


-  ** 


mnm 


SUBPLOT  2. 

DRAW  1  2. 

&TTY 

SEND 

&RETURN 

s.  DOUBAR.CPL 

/*(DOUBAR.CPL)  DOUBLE  INCLUDE  FILES 

/^Allows  the  user  to  input  two  include  files  to  TEL-A-GRAF  with 
little  or  no 

/^knowledge  or  experience  vith  TEL-A-GRAF  commands. 

&ARGS  DATAFILE;  INCLUDEFILE ;  SECONDINCLUDE  5.3  TAG 
DATA  FILE  IS  %DATAFILE%. 

INCLUDE  %INCLUDEFILE%. 

INCLUDE  %SECONDINCLUDE%. 

SUBPLOT  1. 

DRAW  1. 

&TTY 

&END 

&RETURN 


t.  TRIPLE. CPL 

/* (TRIPLE. CPL)  DOUBLE  DATA  AND  TRIPLE  INCLUDE  FILES  /^Allows  the 
user  to  input  three  include  files  to  TEL-A-GRAF  with  little  or  no 
/’’'knowledge  or  experience  with  TEL-A-GRAF  commands. 

&ARGS  DATAFILE;  SECONDATA;  INCLUDEFILE;  SECONDINCLUDE;  THIRDINCL'JDE 
5.8  TAG 

DATA  FILE  IS  %DATAFILE%. 

INCLUDE  %INCLUDEFILE%. 

SUBPLOT  1. 

DATAFILE  IS  %5ECONDATA%. 

INCLUDE  %SECONDINCLUDE%. 

INCLUDE  %THIRDINCLUDE%. 

SU3PL0T  2. 
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DRAW  1  2. 

&TTY 

&END 

&RETURN 

u.  QUAD . CPL 

/ * ( QUAD . CPL )  QUAD  DATA  AND  INCLUDE  FILES 

/*Allows  the  user  to  input  four  include  files  to  TEL-A-GRAF  with 
little  or  no 

/*knowledge  or  experience  with  TEL-A-GRAF  commands. 

&ARGS  DATAFILE;  SECONDATA;  THIRDATA;  FOURTHDATA;  INCL'JDEFILE 
SECONDINCLUDE;  THIRDINCLUDE ;  FOURTHINCLUDE ;  MESSAGE 
5.8  TAG 

DATA  FILE  IS  %DATAFILE%. 

INCLUDE  %INCLUDEFILE%. 

C. 

TITLE  TEXT  IS  "PERCENT  EXPENDED  %MESSAGE%. 

SUBPLOT  1. 

DATA  FILE  IS  %SECONDATA%. 

INCLUDE  %SECONDINCLUDE%. 

DATA  FILE  IS  %THIRDATA%. 

INCLUDE  %THIRDINCLUDE%. 

DATA  FILE  IS  %FOURTHDATA%. 

INCLUDE  %FOURTHINCLUDE%. 

DRAW  1234. 

&TTY 

&END 

&RETURN 

2.  TELL-A-GRAF  PROGRAMS 

a.  TAGPRO.DAT:  Tell-A-Graf  Profile  File 
PRIMARY  DEVICE  IS  TEKTRONIX. 

PRIMARY  DEVICE  MODEL  IS  4105. 

PRIMARY  DEVICE  DRAWING  ORDER  13  I. 

SECONDARY  DEVICE  IS  POP. 

I'-l 


PAGE  LAYOUT  IS  HORIZONTAL-REPORT. 

ERROR  REPORTING  LEVEL  IS  3. 

EXIT. 

b.  B1 :  3ar  Chart  For  Budget 
GENERATE  A  VERTICAL  BAR  CHART  . 

INDEPENDENT  DIVISION-LABELS  IS  '112'  '113'  '114’ 

'115'  '116'  '117'  '113'  '119'  . 

INDEPENDENT  LABEL  TEXT  IS  "COST  FUNCTION"  . 

DEPENDENT  LABEL  TEXT  IS  "MILLIONS  OF  DOLLARS"  . 

AXIS  FRAME  IS  1. 

WINDOW  DESTINATION  IS  -1  6  4.099999  10. 

WINDOW  DESTINATION  FRAME  IS  0. 

TITLE  TEXT  IS  "FY  36  3UDGET  FOR"  "COST  CENTER  9110"  . 
**FILE** 

c.  EX2:  Plot  of  Budget  vs  Expense 
GENEDATE  A  PLOT  . 

X  AXIS  DIVISION-LABELS  IS  "OCT"  "NOV"  "DEC"  "JAN" 

"FEB"  "MAR"  "APR"  "MAY"  "JUN"  "JUL"  "AUG"  "SEP" 
X  AXIS  GRID  IS  0. 

X  AXIS  LENGTH  IS  3.5. 

X  AXIS  LABEL  TEXT  IS  "END  OF  MONTH"  .  X  AXIS  SHIFT  IS  1. 

Y  AXIS  GRID  IS  0. 

Y  AXIS  MODE  IS  REVERSED. 

Y  AXIS  OFFSET  IS  3. 

AXIS  FRAME  IS  0. 

WINDOW  DESTINATION  IS  -1  10  -2  10. 

LEGEND  FRAME  IS  1. 

LEGEND  X  ORIGIN  IS  11. 

LEGEND  Y  ORIGIN  IS  2. 

LEGEND  UNITS  IS  COORDINATE. 

MESSAGE  1. 

MESSAGE  CONNECT  POINT  IS  0.5  -0.5.  MESSAGE  TEXT  IS 


MESSAGE  UNITS  IS  INCHES. 

MESSAGE  X  IS  9. 

MESSAGE  Y  IS  6. 

MESSAGE  2. 

MESSAGE  CONNECT  POINT  IS  0.5  -0.5. 

MESSAGE  TEXT  IS  "MILLIONS"  . 

MESSAGE  UNITS  IS  COORDINATE. 

MESSAGE  X  IS  10.5. 

MESSAGE  Y  IS  4. 

**FILE** 

d.  EX112:  File  Appended  to  EX2  For  9112 
MESSAGE  1  "BUDGET  VS  EXPENSES"  "FOR  COST  FUNCTION  9112" 
MESSAGE  2  TEXT  IS  "THOUSANDS". 

**FILE** 

e.  EX113:  File  Appended  to  EX2  for  9113 
MESSAGE  1  "BUDGET  VS  EXPENSES"  "FOR  COST  FUNCTION  9113" 
MESSAGE  2  IS  "THOUSANDS". 

**FILE** 

f.  EX114 :  File  Appended  to  EX2  for  9114 
MESSAGE  1  "BUDGET  VS  EXPENSES"  "FOR  COST  FUNCTION  9114" 
MESSAGE  2  IS  "THOUSANDS". 

**FILE** 

g.  EX115:  File  Appended  to  EX2  for  9115 
MESSAGE  1  "BUDGET  VS  EXPENSES"  "FOR  COST  FUNCTION  9115" 
MESSAGE  2  IS  "THOUSANDS". 

**FILE** 

n.  EX1I6:  File  Appended  to  EX2  for  9116 

MESSAGE  1  "3UDGET  VS  EXPENSES"  "FOR  COST  FUNCTION  9116" 
MESSAGE  2  IS  "THOUSANDS". 


i.  EX117  s  File  Appended  to  EX2  for  9117 
MESSAGE  1  "BUDGET  VS  EXPENSES"  "FOR  COST  FUNCTION  9117" 
MESSAGE  2  IS  "THOUSANDS". 

**FILE** 

j.  EX118:  File  Appended  to  EX2  for  9118 

MESSAGE  1  "BUDGET  VS  EXPENSES"  "FOR  COST  FUNCTION  9118" 
MESSAGE  2  IS  "THOUSANDS". 

**FILE** 

k.  EX119 :  File  Appended  to  Ex2  for  9119 

MESSAGE  1  "BUDGET  VS  EXPENSES"  "FOR  COST  FUNCTION  9119" 
MESSAGE  2  IS  "THOUSANDS". 

**FILE** 

l.  B4 :  Triple  Bar  Chart,  Budget,  3udget  %,  Expense 
GENERATE  A  VERTICAL  BAR  CHART  . 

INDEPENDENT  DIVISION-LABELS  IS  '112'  '113'  1 114 * 

‘115'  '116*  '117'  '118'  '119'  . 

INDEPENDENT  LABEL  TEXT  IS  "COST  FUNCTION"  . 

DEPENDENT  GRID  IS  1. 

DEPENDENT  LABEL  TEXT  IS  "MILLIONS  OF  DOLLARS"  . 

AXIS  FRAME  IS  0. 

TITLE  TEXT  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  CENTER  110". 

LEGEND  FRAME  IS  1. 

**FILE** 

m.  B112 :  Appends  B4  for  9112 

DIVISION  LABELS  '02'  '03'  ' 04 '  '11'  '12'  '19' 

'30'  '33'  '39'  '68'  '91'  '93'  '96'  '97'  '98'. 

X  AXIS  LABEL  IS  "COST  CLASS". 

TITLE  IS  "FY  86  BUDGET  VS  EXPENSES"  "COST  FUNCTION  9112" 
DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 

**FILE** 
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n.  B113 :  Appends  B4  for  9113 

DIVISION  LABELS  '04'  '39'  '91'  '92'  '93'  '96'  '99'. 
X  AXIS  LABEL  IS  "COST  CLASS". 

TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9113". 

DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

o.  B114:  Appends  B4  for  9114 

DIVISION  LABELS  '04'  '94'  '95'. 

X  AXIS  LABEL  IS  "COST  CLASS". 

TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9114". 

DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 


p.  B115 :  Appends  B4  for  9115 
DIVISION  LABELS  '02'  '91'  '93'. 

X  AXIS  LABEL  IS  "COST  CLASS". 

TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9115". 

DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

q.  B116:  Appends  B4  for  9116 
DIVISION  LABELS  '03'  '04'  '91'  '93'. 

X  AXIS  LABEL  IS  "COST  CLASS". 

TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9116". 

DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 


r.  8117 :  Appends  B4  for  9117 
DIVISION  LABELS  '03'  '12'  '33'  '68'  '91'  '93'  '96'  '97'. 
X  AXIS  LABEL  IS  "COST  CLASS". 

TITLE  IS  "FY  36  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9117". 
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DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

s.  BUS :  Appends  B4  for  9118 
DIVISION  LABELS  '91'  1 93 ' . 

X  AXIS  LABEL  IS  "COST  CLASS". 

TITLE  IS  "FY  36  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9118". 

DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 


t.  B119:  Appends  B4  for  9119 
DIVISION  LABELS  '04' . 

X  AXIS  LABEL  IS  "COST  CLASS". 

TITLE  IS  "FY  36  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9119". 

DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 


u.  PERBAR:  Bar  Chart  Percent  Expended 
GENERATE  A  VERTICAL  BAR  CHART. 

INDEPENDENT  DIVISION-LABELS  IS  'ELPSED'  'STD  TIME' 
1  OVER  TIME '  ' MATERIAL 1  ' OTHER '  ' TOTAL ' . 
DEPENDENT  SCALE  MAXIMUM  IS  100. 

DEPENDENT  SCALE  MINIMUM  IS  0. 

DEPENDENT  SCALE  STEP-SIZE  IS  20. 

DEPENDENT  LABEL  TEXT  IS  "PERCENT". 

TITLE  TEXT  IS  "PERCENT  EXPENDED". 

BAR  ROOT  IS  0. 

AXIS  FRAME  IS  1. 

X  AXIS  ORIGIN  1.5,  LENGTH  9. 

Y  AXIS  LENGTH  1.25,  ORIGIN  6.25. 

SUBPLOT  1. 

**FILE** 
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v.  NORBAR:  Bar  Chart  Normalized  for  Elapsed  Time 
GENERATE  A  VERTICAL  BAR  CHART. 

INDEPENDENT  DIVISION-LABELS  IS  'ELAPSED'  'STD  TIME' 

'OVERTIME'  'MATERIAL'  'OTHER'  'TOTAL'. 
TITLE  TEXT  IS  "DATA  NORMALIZED  ON  PERCENT  ELAPSED  TIME". 
BAR  ROOT  IS  1. 

X  AXIS  ORIGIN  1.5,  LENGTH  9. 

Y  AXIS  LENGTH  =  1.25,  ORIGIN  =  4.25. 

Y  GRID  ON. 

AXIS  FRAME  IS  1. 

SUBPLOT  2. 

**FILE** 

w.  VARBAR:  Bar  Chart  Variance  in  Dollars 
GENERATE  A  VERTICAL  BAR  CHART. 

INDEPENDENT  DIVISION-LABELS  IS  'ELAPSED'  'STD  TIME ' 

'OVERTIME'  'MATERIAL'  'OTHER1  'TOTAL'. 
INDEPENDENT  GRID  IS  1. 

DEPENDENT  LABEL  TEXT  IS  "DOLLARS". 

TITLE  TEXT  IS  "VARIANCE  IN  DOLLARS". 

3AR  ROOT  IS  0. 

X  AXIS  ORIGIN  1.5,  LENGTH  9. 

Y  AXIS  LENGTH  =  1.25,  ORIGIN  =  2.25. 

AXIS  FRAME  IS  1. 

SUBPLOT  3. 

**FILE** 


x.  PERVAR:  Bar  Chart  Percent  Variance 
GENERATE  A  VERTICAL  BAR  CHART. 

INDEPENDENT  DIVISION-LABELS  IS  'ELAPSED'  'STD  TIME’ 
' OVER  TIME '  ' MATERIAL ’  ' OTHER '  1  TOTAL ' . 
INDEPENDENT  GRID  IS  1. 

INDEPENDENT  LABEL  TEXT  IS  "PERCENT". 

TITLE  TEXT  IS  "PERCENT  VARIANCE". 

X  AXIS  ORIGIN  1.5,  LENGTH  3. 

Y  AXIS  LENGTH  -  1.25,  ORIGIN  =  .25. 
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BAR  ROOT  IS  0. 

AXIS  FRAME  IS  1. 

SUBPLOT  4. 

**FILE** 

y.  BI10 :  Data  File  for  B1 
INPUT  DATA. 

"BUD86" 

1  0.77287  2  2.13234  3  4.33018  4  0.05306  5  0.27409  6  1.48263 
7  0.0898  8  0.507 
END  OF  DATA. 

**FILE** 

z.  BEllOs  Data  File  for  EX2 
INPUT  DATA. 

"BUDGET". 

001  0.8035  12  9.64198 
"EXPENSES" 

001  0.92  2  1.59901  3  2.4567  4  3.3456  5  4.0002  6  4.78999  7 
5.477  8  6.008  9.2  6.91127 
END  OF  DATA. 

**FILE** 

aa.  8BE110:  Data  File  for  B4 
INPUT  DATA. 

"BUDGET" 

1  0.77287  2  2.13234  3  4.33013  4  0.053063  5  0.274093  6  1.48263 

7  0.0898  8  0.507 

"BUDGET%" 

1  0.60284  2  1.66322  3  3.37754  4  0.04139  5  .21379  6  1.15645  7 
.07005  8  0.39546 
"EXPENSES" 

1  0.69411  2  1.3034  3  3.31009  4  0.04487  5  0.21733  6  1.10264  7 
0.0665  8  0.17234 
END  OF  DATA. 

**FILE** 
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ab.  PBllOs  Data  File  for  Perbar 


INPUT  DATA. 

"PERCENT" 

1,20 

2,20 

3,45 

4.18 
5,17 

6.19 

END  OF  DATA. 

**FILE** 

ac.  NBllOs  Data  File  for  Norbar 
INPUT  DATA. 

"NORMAL" 

1,1 

2,  .95 

3,2.2 

4,0.7 

5,0.55 

6,0.75 

END  OF  DATA. 

**FILE** 

ad.  VB110 :  Data  File  for  Varbar 
INPUT  DATA. 

"VARIANCE" 

1,0 

2,-3000 

3,1000 

4, -10000 

5, -70500 

6, -79980 
END  OF  DATA. 

**FILE** 
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ae.  PV110 :  Data  File  for  Pervar 
INPUT  DATA. 

"PERCENT  VARIANCE" 

1,0 
2, -5 
3,110 

4, -35 

5, -41 

6, -30 

END  OF  DATA. 

**FILE** 
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APPENDIX  E 

C  PROGRAMS  FOR  THE  MICROCOMPUTER 


CCA.C 


•include 

“co lore. hM 

# include 

"ctype.i 

•include 

”f iledata .h“ 

3 include 

“intrege.h" 

•include 

“etdio.h" 

•define 

BACKGRNO 

BLUE 

/* 

•define 

FOREGRNO 

YELLOH 

/» 

•define 

FORTY  0 

/* 

•define 

EIGHTY  2 

/* 

/*  Global  Variables  »/ 
Background  color  */ 

Foreground  color  */ 

Coda  for  forty  colian  mods  •/ 
Coda  for  eighty  coliam  node  »/ 


extern  get bud (  ) i 
extern  gattotff  H 
extern  gattotef  )> 
extern  gattotfef )» 
extern  getempjof  > ) 
extern  gat amp (  )  t 
extern  getfempi  H 
extern  getmgrf  )  v 
extern  getena<  )t 
extern  gat joempl ) i 
extern  get joemet )i 
extern  getfjol M 
extern  gate jo<  I \ 
extern  gethour< )» 
extern  gatlebf  ) \ 
extern  getmatl  >» 
extern  getoth<  )» 
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•true*  filedata  filstruc) 


long  int  .stack  *  20000) 
•include  "orcainp" 

■ainl  ) 

/*  1  Main  begin  */ 
chap  selact(2S6], 

shdr) 


char 

newest  21 1 » 
efnot  S 1 , 
clnot51, 
jonot  5  ] , 
jnamet 50 1 ) 

char  "budget! 1001) 

int  i>  jt  pgt  pflag,  plinas>  inptll,  lines,  nlines, 
inpltll, 
inp2t 1 ] , 
inpJtll, 
inp4l 1 ] , 
inp5tll, 
inp6(ll, 
inp7t  1 1 1 


short  curst  21(321) 


/»  Ida  and  three  cursors  »/ 


/» 

/» 

/* 

/• 

/* 

/» 

/» 


program  module  Cost  Cantar  Analysis 
version  1.0 

authors:  Richard  N.  Woodman 
Michael  F  Rail 


1S5 


**/ 

»/ 

•/ 

*/ 

*/ 

*/ 

*/ 

*/ 


*  i  >  |  >  j  <  j  Li 


/»  Program  last  modi f iad  20  January  1984  •/ 

/*  */ 

/*  This  program  was  producad  on  an  IBM  PC  using  »/ 

/*  DOS  3.1.  Hrittan  with  tha  C  prog ramming  Isnguaga.  */ 

/*  utilizing  tha  Graphic  utility  softwara.  •/ 

/*  •/ 

/»  Main  modular  controls  antry  to  tha  Cost  Cantar  »/ 

/a  Information  aodulas  or  to  tha  Command  Laval  Entry  •/ 

/»  moda.  •/ 

/»  •/ 

/*  »/ 

/*  */ 

/*  Input/Output  Films  us ad:  Nona  •/ 

/*  »/ 

/»  Othar  Hodulas  Callad:  COMOLEV,  CCI  */ 

/*  «/ 

/*  Callad  by:  Nona  •/ 

/*  */ 

/»  Local  Variablas:  inp  »/ 


riteborderl  )i 


elaarKbdl  )  t 


do 


/*  4  */ 


elaarKbdl  it 
inp(01  *  ‘  0*1 

cur  locate  4,1  It 

colrcprtl "COST  CENTER  ANALYSIS  ", 14,3)1 
curlocatl  6,1  It 

colreprtl  "1.  Coat  Carttar  Information  "  ,14,3  )t 
cur Iocs t ( 8,1  1 1 

colrcprtl"2.  Coat  Cantar  Information  Uaing  ", 14,311 
curlocatl  9,1  )t 

colreprtl "Oracla  Command  language  (SQL)  For  Adhoc" ,14,3 ) t 
curlocatl  10,1  It 

colrcprtl "Oueries.  Xnaarta,  Dalataa  and  Updataa" ,14,3  1 1 
curlocatl  14,1 1 1 

colrcprtl "Salaction:  ",14,3  It 

curlocatl 16,1  It 

colrcprt!“A  blank  line  exit*  to  DOS  ”,14,3)t 

curlocatl 14 ,45 1 1 

gat inti  1,1, 1,1, 2 , £inp,0 ,1 ,3 ) t 

it  I inptO ]  !»  •  O'  1 


curlocatl  15, lit 

colrcprtl"Ia  thia  correct?  ",14,3  It 

curlocatl  15,45)t 
i  *  ocoyaanol 15,45,1  It 


if  I inp(0 1  =-  '  O'  I 

i  *  It 


while  i  i  ! *  lit 

1ST 


ourlocatl  14,45  It 

/*  */ 

if  ( inptol  »■  '  O'  )  goto  donai 
if  ( inpiO  I  »*  1 1 

/»  Logon  to  ORACLE  »/ 

if  (olonl curt 1 0 1 , "sys tom /mm nogar** , -1,-1, -1,0 ) > 

/«  2  */ 
errrpti  curst  0 1 ,4 )  I 
goto  donot 

/»  2  */ 

/•tMHMHHMHHMHHHHHHHHHMHHHMHMMMMHHMHWHHHHHHWHHHUHMHHUHMHMUMMt/- 

/*  prog ran  oodulo  Cost  Cantor  Information  */ 


/*  version  1.0  */ 

/»  authors:  Richard  N.  Hoodman  »/ 

/#  Michael  F  Rail  »/ 

/*  */ 

/•  »/ 

/»  */ 

/*  Program  last  modified  20  January  1984  */ 

/*  »/ 

/»  This  program  was  protfcjced  on  an  IBM  PC  using  »/ 

/*  DOS  3.1.  Written  with  the  C  programming  language,  •/ 

/*  utilizing  the  Graphic  utility  software.  »/ 

/*  •/ 


/*  Main  menu  driven  shell  for  Oracle.  Allows  easy  access  •/ 
/»  to  specified  information  and  display  of  that  informa-  »/ 
/*  from  Oracle.  Also  sends  specified  data  to  a  file  for  */ 


/*  the  Graphics  utilities.  */ 
/*  »/ 
/*  Output  files:  GRAF,  GRAF1 ,  BUD  »/ 
/»  »/ 
/»  Modules  called:  BUO.SXP,  EMPXNFO,  JOINFO  •/ 
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/m  */ 
/*  Cal lad  by:  CCA  »/ 
/»  «/ 
/»  Local  Variablaa:  irpl  •/ 

for  (ill 


/•  3  begin  main  while  statement  »/ 
clearthescreenl )» 
clacolorl 14,3)) 
ritebordert )> 

claarKbdl  1 1 

do 

/*  4  */ 

claarKbdl  )| 
inplIOl  ■  •  O') 

our  locatt  4  •  1 1 1 

colrcprtl “INFORMATION  AVAILABLE  ">14,3)) 
cur  locatt  4,11) 

colrcprtl “1.  Budget  VS  Expense*  ">14,3  I) 
curlocatl 10,1 ) i 

colrcprtl "2.  Job  Order  Information  ",14, 
curlocatl  14,1 )  i 

colrcprtl "Selection:  ”,14,31) 

curlocatl  16,1 )) 

colrcprtl "A  blank  line  exit*  ",14,31) 

curlocatl  14,451) 

gat inti  1 ,1 >1,1,2 »*inpl >0,1  ,3  ) ) 

if  ( inpiCO 3  ! *  1  O'  ) 

curlocatl 15,1 1 ) 
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colrcprtl  "la 


cup loca t  (  15  >45 ) t 
i  »  ecoyesno 1 15,45,1 ) t 


corract? 


if  (  inpit 0 ]  «  ‘  0 '  t 


i  *  1» 


whila  (i  !■  1)1 


curlocatt 14 ,45  U 


/»  */ 


if  (inpit 01  ■«  *  O')  break i 


program  module  Budget  vs  Expanses 
version  1.0 

authors:  Richard  N.  Woodman 

Michael  F  Rail 


Program  last  modified  20  January  1486 


/»  This  program  was  produced  on  an  IBM  PC  using 
/*  DOS  5.1.  Written  with  the  C  programing  language. 
/*  utilizing  the  Graphic  utility  software. 


/*  Allows  display  and  comparison  of  budget  and  actual  »/ 
/»  expense  information  by  various  categories.  Interfaces  */ 
/»  speoifiad  data  with  graphics  for  further  displays.  */ 


/*  Output  files:  GRAF,  GRAF1 ,  BUD 


/*  Modules  called:  GETBUO,  IN0V0ISP ,  TOTBU0EXP 
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i  mifULt  aw  mnut  mw-Mtua  vwUFiira*  va-im r*gyr»v  wrwmnrwvwzwvWYmv  rvairrvau'  *•.  *-j*--  »-.  m.  *-:  *  -  ru  »■-  »'•»''■ 


/*  Called  by:  CCI  #/ 
/*  */ 
/*  Local  Variables:  inp2  */ 

/)HHHHHHHI»WHHHHHHHHHHHHHHHHMHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHt/ 


if  ( inpit  0  1  ss  1 ) 

for(  )  ) ) 

clear thescreenl  )) 
clacolort  14,3): 
riteborderl  )  i 
do 

clearkbdl ) ) 

curlocatl  4,ll| 

colpcpptl  "BUDGET  VS  EXPENSES  ",14,3): 
curlocatl  6,1)1 

colrcprtl "1.  Total  Budget  VS  Expenses  to  Data 

••,14,3): 

curlocatl  8,1)  I 

colrcprtl  "2.  Labor  or  Matarial  or  Other  ",14,3)1 
curlocatl  10,1)) 

colrcprtl  "3-  Budgat  by  Coat  Fime/Cost  Class" ,14,3  ) ) 
curlocatl  14,1): 

colrcprtl  "Salactioo:  ",14,3)) 

curlocatl  16,1)) 

eolreprtf'A  blank  line  exits  ",14,3)) 
curlocatl 14,45 ) > 

9a t inti  1,1, 1,1, 2, &  inp2 ,0,1,3 )) 
if  I  inpZCOl  !=  '  0‘  ) 

curlocatl  15,1 1 ) 
colrcprtl  "Ts  this  correct? 
cur  loca  t(  15  ,‘•5  '  i 


llM 


A 

V 

V 

Er 


3/4 


40-4183  284 

UNCLASSIFIED 


DSS  (DECISION  SUPPORT  SVSTEA)  DEVELOPMENT  EFFORTS  RT 
THE  WIRE  ISLAND  NRVRL  SHIPVRRD(U)  NRVRL  POSTORADURTE 
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F/0  3/1 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS-  1963-A 


✓  1** 


V  v< 


i  »  ecoyesnol 15*45*1)1 


if  (inpZlOl  »■  *  O') 
i  ■  Xi 

/*  END  00  LOOP  FOR  2ND  MENU  XF  MENU  1*1 
while  (i  !*  ID 


*/ 


/*  »/ 
if  <inp2(0l  *« 


O' )  break i 


/** 


/* 

/» 

/« 

/* 

/* 

/» 

/» 

/* 

/* 


prograa  Module  Total  Budget  va  Expense**/ 


version  1.0 

authors:  Richard  N.  Moo dean 
Michael  F  Rail 


Prograai  last  Modified  20  January  1986 


/a  This  prograa  was  produced  on  an  IBM  PC  using 
/«  DOS  3.1.  Written  with  the  C  programing  language* 
/*  utilizing  the  SraphiC  utility  software. 

/» 


*/ 

*/ 

*/ 

»/ 

*/ 

*/ 

«/ 

»/ 

*/ 

*/ 

*/ 

*/ 


/*  Suss  labor*  Material  and  other  for  budget  and  expenses  */ 
/»  to  data  by  cost  function*  cost  class*  cost  function/  */ 
/»  cost  class  and  cost  center  as  requested  and  sends  data  */ 


/»  to  graphics  routine  whan  directed. 


*/ 


3 

s 


if  (irpilOl  ■>  1) 


fort ) i ) 


claartheocreenl  )  l 
clooolor 1 14,3)1 
ritaborderl )| 
do 


curloe*ti4»l)i 

eolreprtl  "TOTAL  BUDGET  VS  EXPENSES  ”,14.3)1 
curloc»t(6,l)i 

eolreprtl "1.  Coot  Function  ”,14 ,3)1 
curloceti6,l  )i 

eolreprtl ”2.  Coot  Claoo  ”,14 ,3)1 
our loco 1 1 10,1)1 

eolreprtl ”3.  Coot  Function  Coot  Claoo  ”,14,3)1 
our loeott 12,1)1 

eolreprtl ”4.  Coot  Cantor  ”,14,3)1 
cur loco  1 1 14,l)i 

eolreprtl  "Selection:  ”,14,3)1 

cur  loeott  16,1  )i 

eolreprtl  "A  blank  line  axito  ”,14,3)1 

ourlocatl 14 ,45 ) 1 

pat inti  1 ,1,1 ,1 ,2 ,(inp3 ,0,1,4 ) I 

if  I inp3(0l  !>  '  O') 

cur  locatl  15,1)1 

eolreprtl ”Xo  thio  correct?  ”,14,3 1 1 

cur  locatl  15,45)1 
i  *  acoyaonoi 15,45,1)1 
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if  ( inp3(0I  »■  '  O') 


1  •  It 


ahila  li  !»  1)» 

if  ( inp3(0]  ■■  •  0‘)  braakt 

clscolort  FORESRNO >BACKGRND ) I 
curlocat(15>15)t 

colrprtsl "Total  Budget  VS  Expanses  in  Thousands  of  Dollars" , 

FORESRNO *BACK6RN0  1 } 


if  i inp3t0l  »■  1) 

hdr  «  “  COST  FUN  BUDGET  EXPENSE 

In  Thousands  " i 

strcpyl  salact »  selbfunlt 
gat totfl select*  hdr*  curs  1 1 

if  (  inpjf  0  J  aa  gj 

hdr  a  «  COST  CIS  BUDGET  EXPENSE 

In  Thousands  " i 
at  ropy  ( salact*  saXboXl) 
gettotcl salact  *  hdr  >  curs  I t 

if  ( inpSIOl  -a  3) 

hdr  ■  "  COST  FUNC  COST  CLS  BU06ET  EXPENSE 

In  Thousands  " » 
strcpyl  salact*  salbcfcl )  > 
gattotfel salact  >  hdr*  curs  It 

if  ( inpJCOl  aa 
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hdr  >  "COST  CENTER  9110  BUDGET 


EXPENSE 


DATE  In  Thousands  "> 
strcpyi select ,  salsualt 
getsuel select ,  hdr,  cur* ) I 


/KH 

/» 

prograw  module  XNOVDXSP 

mm/ 

*/ 

/» 

vsrsion  1.0 

»/ 

/» 

authors:  Richard  N.  Hnoriman 

»/ 

/» 

Michssl  r  Rail 

•/ 

/» 

»/ 

/» 

»/ 

/» 

V 

/* 

P roqr  so  last  modified  20  January 

1964 

«/ 

/» 

*/ 

/* 

This  prograe  was  produced  on  an  IBM  PC 

using 

•/ 

/• 

OOS  3.1.  Hr  it  tan  with  tha  C  programming  ; 

Language, 

»/ 

/» 

utilising  tha  Graphic  utility  software. 

•/ 

/» 

»/ 

/* 

Display  budget  vs  expanses  to  data  for  either  labor. 

»/ 

/» 

Material  or  other,  sorted  by  Cost  Finetion/Cost  Class. 

,  »/ 

/» 

»/ 

/» 

Input/Output  files:  Nona 

«/ 

/• 

»/ 

/» 

Hodulee  Called:  SET  LAB,  GETHOUR,  GETMAT, 

GETOTH 

/» 

*/ 

/» 

Local  Variablaa:  inpA 

»/ 

if  (inp2{01  «■  2) 
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fori »t) 


cloorthoo croon!  I) 
eleeolort  10  >3 ) t 
ritobordorl  I) 
do 

eloorKbdt )l 

ourloooft4.il l 

oolrcprtl"  BUDGET  VS  EXP08U  ".14.SH 
ourloeotl4.il) 

oolrcprtl "1.  HOURS  ".14.31) 

eurloeotlS.il) 

oolrcprtl"!.  LABOR  ".14.31) 

ourloeotllO.lt) 

oolrcprtl  "3.  MATERIAL  ". 14.31) 

ourlocott  12.11) 

oolrcprtl "4.  OTHER  ".14.31) 

ourloeotll4.il) 

oolrcprtl "So loot ion:  ".14.3 1 ) 

eurloeotl 14 . 1 1 ) 

oolrcprtl  "A  blot*  lino  oxite  "  ,14,31) 

ourloeotl 14,48 1 1 

gotintl  1 , 1.1,1, 2, 4irp4, 0,1.41) 

if  I  inp4(0l  !■  '  0*1 

ourloeotl IS ,1 1 > 
oolrcprtl  "to  this  oorroct?" 

,14,31) 

ourloeotl  15,451) 
i  ■  oooyoonol 15,45,1 1) 

if  I inp4( 0 1  ■«  ’  O' I 


i  ■  1) 


while  (i  !■  1)» 


If  ( inpOlO  J  •  O')  brook) 

olseolor<POREORND,BACKQRM))> 
ourlooattlf  >U)» 

oolrprtsl"  Bucfeei  VS  Expanse*  in  Thousand*  of  Oollara", 
P0RE0RND,BACX6RND)t 

pause)  )> 


if  (inpAlO)  *■  1) 


hdr  •  ■  HOURS i  COST  PUN  COST  CIS 


") 


atrepy) aalaot >  aalhaurli 
pathourl aalaot ■  hdr,  aura )| 

if  I  inpat  0)  ■■  t) 

hdr  ■  "  LABOR i  COST  PUN  COST  CLS 

■UDOET  EXPENSE  Xn  Thousand*- > 

atrcpyt aalaot  ,  sellab )  » 

9*tlab( aalaot ,  hdr,  our* ) > 


if  linpMQ]  >a  S) 

hdr  ■  -  MATERIAL i  COST  PUNC  COST  CLS 
•U00CT  EXPENSE  In  Theuaanda  "> 

a trcpyl  aalaot ,  aalaat  )> 
gahatlaalaoii  hdr,  ourali 


if  linpAtO]  a.  A) 
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OTHER 


IN  THOUSANDS"! 


•troat!  aalaet  >"4" )  \ 

if  (j  »  S) 


hdr  ■  "91 IS  COST  CL  LABOR 

OTHER  IN  THOUSANDS"! 

•treat!  Mlaet  >"*")! 

if  (J  »  A) 

hdr  >  "9114  COST  CL  LABOR 

OTHER  IN  THOUSANDS"! 

■treat!  Mlaet » "4"  )| 


if  (J  ■■  71 

hdr  ■  "9117  COST  CL  LABOR 

OTHER  XN  THOUSANDS"! 

•treatlMlaot."7")! 


if  IJ  ■■  8) 


hdr  ■  "9118  COST  CL  LABOR 

OTHER  ZN  THOUSANDS"! 

•treat!  Mlaet  »"8" ) ! 

if  IJ  ■■  9) 

hdr  ■  "9119  COST  CL  LABOR 

OTHER  ZN  THOUSANOS"! 

•treat!  aalaot  »"9" )  i 


•treat!  Mlaet*"'")! 
gatbudl salaet ,  hdr,  ours ) ! 


HATERZAL 


MATERIAL 


MATERIAL 


MATERZAL 


MATERZAL 


/*  prog**—  module  Job  Ordor  Information 

/*  version  1.0 

/»  authors :  Richard  N.  Hoodaan 

/»  Hiohaal  F  Rail 

/» 

/» 

/* 

/»  Program  last  modified  20  January  1986 

/» 

/»  This  program  mbs  produoad  on  an  IBM  PC  using 
/»  DOS  3.1.  Written  with  the  C  programming  language t 
/»  utilizing  the  Graphic  utility  software. 

/» 

/»  Displays  the  a  Job  Order >  Job  Orders 

/»  under  a  Cost  Ftnetion»  and  Jab  Orders  wider  e  Cost 

/»  Class. 

/» 

/»  Input/Output  Files:  None 
/« 

/*  Nodules  Called:  6CTJ0CHP,  CCTJOEHA,  6CTFJ0.  6ETCJ0 
/» 

/»  Celled  by:  CCI 
/* 

/»  Local  Variables:  irp7 


claartheacraanl )» 
claoolort 14,3 ) t 
ritabordart  )» 

inptO]  a  1  O't 

do 

elaerfcbdt )» 
irp7t0]  a  •  0'» 

ourlocatl 4,1 )t 

oolrcprtl "JOB  ORDER  INFORMATION  ",14,3 )» 
eurlooatl&,l)» 

oolrcprtl  "1.  Input  Coat  Flaw t ion  ft 

Find  Job  0rdara",14,3 ) I 

ourlocatl 10 ,1)» 

oolrcprtl "2.  Input  Coat  Claaa  I  Find 

Jab  0rdaraM,14,3)» 

ourlocatl  14>1)» 

oolrcprtl  "Salaetiom  ",14,3 )» 
ourlocatl  16 ,1)» 

oolrcprtl  "A  blank  lino  axita  ",14,3)» 
curlooatl  14,45 ) » 

gat inti l»l,l,l,2>tinp7»0,l,4)) 
if  1 inp7(0l  !■  '  O') 

ourlocatl  15  >1)) 
oolrcprtl "la  thia  correct? 

",14,3)> 

ourlocatl  15,45)1 
i  ■  oooyeanol 15,45,1) | 

if  1  inp7(0l  '  O' ) 
i  ■  1) 

/a  ENO  DO  LOOP  FOR  MENU  IF  MENU  1  a  3  »/ 

Mhila  1 i  !■  1)) 
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our loeat( 14*451 » 


/*  */ 

if  (irp7t0l  ■■  •  O')  break* 

clsoolorl F0RE6RND ,BACK6RND )  ) 
our looatl 15,20  It 

oolrprta( "  JOB  ORDER  INFORMATION  ",F0RE6RND,BACKGRND)» 
pauaal )» 


if  ( irp7l0]  »  1) 


for  ( t ) 1 


claarkbde It 


/»  begin  for  atata 
elaarthasoraanl )> 
olaoolorl 14,31) 
ritabordarl )t 
do 


it  »/ 


our  locate  4,1)* 

eolreprte "INPUT  THE  COST  FUNCTION  NUMBER  ">14 ,3 It 
our locate  10 >l)t 

eolreprte  "Salaction:  “>14>3)t 

our  locate  16,l)t 

oolreprtt HA  blank  lina  ax its  ", 14,3  It 
ourlocatl 10,45  It 
gstcstrl 20,l,l,l,2,Acfno,0 It 
if  (ofnotOl  !■  1  O' ) 


ourlocatl  12,11) 
eolreprte "Is  this  correct?" 

>14,3 )  t 
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a 


a 


•‘  /‘a/*  **.  a  | 

V  V  /  */  V  a*  'A*J 


I  1  - 

eur  locate  12 .45 )  i 
1  ■  eooyesno! 12,45,1 )> 

if  (efnotOl  •  O') 
l  ■  ll 

Mhila  (i  !>  1)1 
if  (ofnoiOl  •  O’)  break) 

hdr  ■  "  Coat  Function  Job  Order  Nuaber 

"» 

•trepyi salaet >  salfjoH 

•treat!  select, . )t 

•treat! aalaet  »cf no ) > 

•treat! salaet ,"•")) 
gatf jo! salaet >  hdr »  ours)) 

/»  and  of  or  if  loop  ■  1  for  aanu  2-2  */ 

/*  and  of  aaployaa  aanu  for  loop  »/ 

if  i  inp7t 0 1  ■■  2) 

for  In) 

/*  bagin  for  sta tenant  */ 
clear thescraan!  )» 
elsoolor! 14,5 )> 
ritabordar!  )  > 
do 

olaai  kbd!  )> 

ourloeat!6,l)t 

eolreprtl  "INPUT  THE  COST  CUSS  NUMBER  ",14,5 )» 
ourloeatl  10,1 H 

oolreprt!  "Selection:  ",14,5)i 
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v  . 


cur  locate  16  >I)i 

oolreprtl  “A  blank  lina  exits  M4,S)| 
curlocatt 10 >45 ) t 
getcstrl 20>l>l>l,2>tclno>0)) 
if  (clnotOl  |»  1  o' ) 

our locate  12 »1)| 
oolrcprte "la  thim  oorract?  * 
>14,3)) 

our loea t ( 12 >45 ) | 
i  ■  ecoyesnol 12>45>1)) 

if  (clnoEOl  **  1  O' ) 

i  ■  1) 

Mhila  ( i  !■  l)t 
if  lolnotO]  *»  ■  O')  break) 

hdr  «  "  Coat  Class  Job  Order 

strepye  select  >  selcjoH 
strcatl  select  >”  "' ) ) 
street I  select  >clno ) ) 
strcatl select  >H ' " ) ) 
getfjol select >  hdr>  curs)) 

/#  end  of  or  if  loop  ■  1  for  nsnu  2-2  */ 

/*  end  of  employee  menu  for  loop  */ 


/#  and  of  for  loop  */ 

/*  and  of  if  *2  employee  */ 


Number 


/*  ENO  FIRST  MENU  FOR  LOOP  */ 


/»  End  Ha in  Hanu  If  Inp  •»  1  «/ 


version  1.0 


authors:  Richard  N.  Honrtaan 


Hichaal  F  Rail 


Prograai  Iasi  Modified  20  January  1986 


This  prograai  Mas  produced  on  an  IBM  PC  using 


DOS  3.1.  Mr it ton  with  the  C  progr sawing  language* 


utilizing  the  Graphic  utility  software. 


Calls  User  Friendly  Interface  to  allow  the  user  to 


aaka  i*oe  queries*  updates*  and  deletes. 


Input/Output  Files:  None 


Modules  called:  User  Friendly  Interface 


Celled  by:  CCA 


Local  Variables:  None 


if  ( inptO]  ■«  2) 


clscolorl 14*3 ) I 


i  ■  doscadC'ufi  systsa/i 


/*  End  Main  Menu  If  Inp  ■*  2  a/ 


naxtlina( lina) 


int  y» 

for  (y  ■  0)  y  <■  linai  y*+) 
print f( "  n“)| 


claartha* or— nl ) 

int  z) 

for  <z  ■  z  <  17i  z++ ) 
clrasg(z>20>36)) 


Mritofl lino) 
char  linatSlli 

/*  Hritafila  writ**  th*  output  of  Oroolo  to  t  fila  oallad  graf  */ 

PILE  *outfil*»  *fop*n( )| 

out fila  ■  fopanl "graf" >"*")» 
fprintftoutf ila»"X*  n",lin*)j 
folos*(outfilo)» 


writ*fl( lino  I 
char  linatSlli 

/*  Hritafilal  writ**  th*  output  of  Oraol*  to  a  fila  cal lad  grafl  */ 

FILE  *outfila>  »fop*n(  H 

outfil*  ■  fopanl "grafl","*" It 


fprlntf  (outf  ilot"**  n"»llno)i 
feloeoloutf ile)i 


Mritafbl  lira ) 
char  line! 81 It 

/»  Nritefb  Hrita*  <h*  output  of  Oroela  to  o  filo  oollod  bud  */ 

FILE  eoutfile,  "fopanl )» 

out filo  ■  fcpanl "bud" ,"a")> 
fprintf (outfilo.-X*  n"»line)i 
fcloaet  outfiloM 


2.  PROJA.C 

8 include  "color*. h" 

•inoludo  "otypo.h" 

"include  "filodota.h" 

* include  "intros* -H" 

"include  "stdio.h" 

/»  Slobol  Variables  */ 

"define  BACK SAND  BLUE  /»  Background  color  •/ 

"define  FOREGRND  YELLOW  /*  Foreground  color  */ 

Sdaf ina  FORTY  0  /»  Coda  for  forty  ooluan  eoda  */ 

"do  fine  EIGHTY  2  /*  Coda  for  eisfity  col  ten  eoda  */ 
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■aterUM  IS], 
othartlSli 

ohar  linaCMl,  "budgatt 100 1,  «calloc<  )| 
ini  i,  }i  ps,  pflag,  plinaa,  linaa,  nlinaai 


nlinaa  ■  Oi 

aataoaodf  EXBHTY )i 
olaeolorl  FOMSRNO  > BACKBOND )  I 
bordar  I  BACKBOND )  \ 
our looatl 12,23  )t 

forli«Oi  i  <  S0»  budgattil  ■  eallooll,l)i 

oolrprtal "Do  you  want  printed  output  ( Y/N  )?" ,  FOOEBRND  .BACKBOND  )  I 
if  I gatyaanot 1 ) > 

/»  Znitialixa  tha  print  variablaa  »/ 
pflag  ■  li 

for  (jail  J  <■  Si  Iprtlfl )| 

for  I  jail  i  <-  ll  IprtcharlO,  •  Ml 

lprtatrl hdr ) i 

lprterl ) t 

Iprtlfl  )i 

Iprtlfl )t 


alaa  pflag  a  o» 
plinaa  a  oi 

claoolorl FOOEBRND .BACKGRNO )  l 
/*  Procaaa  tha  ORACLE  raquaat  a/ 

/*  Opan  a  ouraor  for  tha  budgat  »/ 

if  I  oopanl  curat  11, curat  01,-1,-1,-1,-1,-lH 


arrrptl  curat  0 1 ,4  J  t 
goto  eloaat 


/»  Ratriava  tha  first  raoord  »/ 


/•SELECT  SIJHt  LABOR  )+SUM( MATERIAL  )*SU1(  OTHER ) 

FROM  BUDGET  MHERE  COST_FUK.NO  ■  */ 

if  (asql3(eurslll,  Mlaoti  >1)  || 
odaf  in  ( ourat 1 1 ,  1,  tclno,  aizaof  clno> 

S,  -1, -1,-1, -1,-1, -1,-1)  || 

odaf in ( ourat 1 1 ,  t,  * labor,  aizaof  labor, 

B,  -1, -1,-1, -1,-1, -1,-1)  || 
odafintourstll,  3,  taotarial,  aizaof  Notarial, 

B,  -1, -1,-1, -1,-1, -1,-1)  || 

odafinlouralll,  ♦,  tothar,  aizaof  othar,  B,  -1,-1, -1,-1, -1, -1,-1)  || 
oaxaetourstlD  || 
ofatohl  curst  ID) 

if<  ourat  1  It  01—4) 

ourlooatt  12,30)) 

eolrprtat "No  Records  Sa lac tad", FORE SRND, RACXCRND )» 
goto  oloaai 


alaa 


arrrptl  curat  01,4)) 
goto  oloaa) 


/a  Retrieve  tha  regaining  records  »/ 
linoa  a  2 ) 
haadlhdr )> 

while  (ouratlUOl  !»  4) 

nlinaa  a  0) 
atrcpydina,  olno)) 
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1 


for  ■  full 


/»  Chook  for  o  full  aoroan  */ 
alao  if  (llnoo  ♦  nlinoo  >  U I 


our  loeatl  24,21  )i 

oolrprtal "Proaa  ary  Kay  to  eontinua  or  t  to  quit* , 
POMSIMD  ,BACK8MND )  I 
gatkayl >3)| 
llnoa  ■  2) 

if  ((3  »  'o')  II  <3  ■■  •••!»  goto  dona* 
olaoolor  ( FOftEGftND  ,tACKGMD )  I 
haadlhdrli 


/»  Chook  for  o  full  poga  a/ 

if  (pflag  a«  ((plinaa  ♦  nlinaa)  >  Sin 


plinoo  ■  0» 

i  ■  (00  -  atrlanl hdr )  I/I i 
Iprtffl  It 

for  I  3«1»  3  <■  *»  lprtlfl  )| 

for  <3"1»  3  <■  i»  3M>  IprtoharlO,  *  'll 

lprtatrlhdr It 

lprtorl  )i 

lprtlfl  1 1 

lprtlfl  )» 


/•  Print  tha  linaa  »/ 
fori 3«0t  3  <  nlinaa t  344 I 

ourlooatl  linaa  •  10 )  t 

oolrprtal budgatt  3 1 .FOUCCPHO ,BACK6PN0  1 1 
if  I pflag  I 
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/IHHHHHHMHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHt/ 

/»  program  Module  gettotf  */ 
/*  vw«lan  1.0  «/ 
/*  author*:  Richard  N.  Ho  orison  «/ 
/a  Hichaal  F  Rail  a/ 
/*  */ 
/a  a/ 
/a  a/ 
/a  Program  last  Modified  11  Dacaabar  19M  a/ 
/a  a/ 
/a  Purpose:  Display*  budoat  vs  expense  to  data  for  a/ 
/a  currant  fiscal  year,  by  oost  fvncticn.  a/ 
/a  */ 
/a  Other  nodules  called:  S£LBFUN»S£LEFUN,writef  */ 
/a  a/ 
/a  Called  by:  TONJDEXP  */ 
/a  a/ 
/a  */ 
/a  Files  used:  NONE  */ 
/»  Files  created :  GRAF  */ 
/a  a/ 
/a  */ 
/a  Local  variables:  cfno»bud,exp  »/ 
/a  line-60-,  abudpet-100-,  *oslloc( li  a/ 
/*  1,  i»  pg>  pfleg,  pi inas,  lines,  nlinasi  a/ 
/a  */ 


psttotf I  select ,  hdr , 
char  asalaet, 
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abort  eurtt  HSZlt 


char 

efnoISJ* 

budllSl, 

axpilSlt 

char  linaltOli  abudgattlOOl*  aealloel )| 

int  i,  J»  P0i  pflag>  gflag*  plinas,  lines*  nlinest 


nlines  ■  Oi 

aetsceodl EI6HTY ) i 
elscolorl FORECRND  >BACKGRNO ) 1 
border!  MCKGRND 1 1 
our locate  12 ,23  It 

for( i«Ot  i  <  50 »  budget! il  «  eallocll»l)| 

oolrprtsCDo  you  Man*  printad  output  ( Y/N )?" » FORECRND  >DACKGRND  1  t 

if  (gatyaano(l)l 

/■  Initialize  tha  print  variable?  »/ 
pf  lag  *  ll 

for  IJ»lt  j  <■  lprtlfl  )t 

for  IJ«lt  j  <■  It  }♦♦)  lprtcharlO*  '  •  It 

lprtstrlhdr  It 

Iprtorl ) t 

lprtlfl It 

lprtlfl It 

also  pflag  ■  Ot 
plinea  ■  Ot 


ourloeatl  14*23  It 

eolrprtal "Graph  Output  ( Y/N >?" .FORECRNO ,BACKGRND ) » 


/»  Initialize  tha  graph  variable  */ 
if  I gatyeenol 1 1 1  gflag  ■  1» 

•1m  gflag  *  o» 

clsoolorl F0RE6RND .BACKSRNO ) j 
/»  Process  tha  ORACLE  ra quest  */ 

/a  Oban  a  cursor  for  tha  budget  */ 
if  <oopan<ourstll>ouretOl,-l, -1,-1, -1,-11) 


errrptl  ours  1 0  )  >4 ) t 
goto  closet 


/a  Retrieve  the  first  record  */ 

/»  SELECT  COST_FUN_NO,  SUH(  LABOR  l+SUMI  MATERIAL  )*SUM(  OTHER  ) , 
FROM  BUDGET  GROUP  BY  COST_FUH.NO  */ 

if  (oeql3 (curst ll»  select >  -11  II 
odef in( curst  1 1 ,  1>  tefno ,  sixsof  cfno, 

B,  -1, -1,-1, -1,-1, -1,-1)  II 
odafint aural ll»  2,  C.5,  sizeof  bud, 

5,  -1, -1,-1, -1,-1, -1,-1)  II 

oaxaelcurall])  II 
ofetcht curst  1 1 1 1 

if(  curst  1  HO  1«»4) 

our  locatl  12,S0)i 

colrprtsl "No  Records  Selected", FOREGRND ,BACKGRN0 1 1 
goto  closet 


else 


errrptC curst 0 1 ,4 ) i 
goto  closet 
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/*  SELECT  COST_FUN_NO,SUM(  LABOR  )*SUH(  MATERIAL  )*SUM(  OTHER ) 
FROM  EXPENSE  NHERE  OT  ■  (SELECT  HAX(OT)  FROM  EXPENSE 


AND  COST_FUN_NO  ■  :COST_FUN_NO  GROUP  BY  COST_FUN_NO  »/ 
if  I oopanl curat  2 1 .curat  0 1,-1, -1,-1. -1,-1)  || 
osql3(ourst2],  as  Is  fun >  -1)  1 1 
odofin(curs(2],  1,  tcfno,  a i roof  cfno, 

5,  -1, -1,-1, -1,-1, -1,-1)  I! 

odofin( curst  21,  2,  toxp,  aizaof  sxp, 

5,  -1, -1,-1, -1,-1, -1,-1)  II 
obndrv(curs(2],":CFNOH,-l,Sefno. -1,1, -1,-1, -1,>X)) 

•rrrptl  curs!  0  ]  ,4 )  t 
goto  elosoi 


/»  Rotricvo  tho  row  ining  rocords  »/ 
linos  ■  2) 
hood( hdr ) i 

Mhilo  (cursllltOl  !»  4) 

nlinos  ■  0) 
strcpydino,  cfno)t 
strcatdino,  bud ) J 


/»  Rotriovo  tho  first  oddross  rseord  »/ 
if  (ooxoot curst  21)  II 
ofoteht  ours! 21)) 

iftcurst  2l£0]»*4)  | 

olso 


orrrptt  curst  0 1 ,4 )  t 
goto  olosoi 


ttfiila  (curst  2  HO)  !■  4) 


.»*  . «»  -*»  '  > >  i  , * »  gi|'. 


•treat!  line,  "  «)) 

•treat! line,  exp )) 
if  !stre*»(lina,  "  “)  !■  0) 


f real budgatt nlines 1 ) ) 
i  ■  strlan! line)) 
budgatt nlina*]  *  calloe! j+l»l)) 
•trepyf budget Inline*],  line)) 
if  (gflag  »  1)  writafi  line)) 
nline*++ ) 


of etch! curat  2 1 ) ) 


/»  Check  for  a  vary  large  entry  */ 
if  Inline*  >21) 


elaeolor! FOREGRND .BACKGRND ) ) 
cur  loeatl  12,24  )> 

colrprts!  "wHHHHHHHHiEntry  axcaads  20  lina«", 

FOREGRND , BACKGRND I » 
cur  loeat!  24,21)) 

oolrprts! "Press  any  key  to  continue  or  G  to  quit", 
FOREGRND , BACKGRND ) ) 
gatkay! *  j ) ) 

if  (Ij  »«  ’q1)  II  (j  **  '<»•))  goto  dona) 
elseolori FOREGRND .BACKGRND ) ) 


lines  ■  2) 

for  ( j»0)  j  <  nlinas)  !♦♦)  printf!" 


Xs  n" , budgatt  j 1 ) ) 


»  1*1  t  t  it  t,4  #.*  #ft»  I.*  .*1  .><  ftU  .'I  «  ;  ll.l  tj't.rt.lM  l.l  i.«  M 


/»  Chock  for  a  full  scraan  »/ 


•1m  if  (lin«s  ♦  nlinas  >23) 


cur locatt  24,21 )» 


colrprtsl  "Pros*  any  kay  to  continua  or  Q  to  quit's 


FOREGRND >BACKGRND ) » 


gatkayl  «j)» 


linos  »  Zl 


if  ( ( j  «■  *q' )  II  ( j  ■■  'Q' ))  goto  dorm 


elscolorl FOREGRND ,BACKGRND ) j 


hMdl  hdr )  i 


/*  Chock  for  a  full  paga  */ 


if  (pflag  ti  (Iplinas  ♦  nlinas)  >51)) 


plin«s  a  0> 


i  «  (80  -  strlanl hdr )  )/2 1 


lprtff ( )» 


for  (j»li  j  <■  6t  j*+)  lprtlfl  )| 


for  (j*l>  j  <*  ii  j*+)  lprtcharl  0,  •  '  )» 


lprtstr(hdr )i 


lprter(  s 


lprtlf (  )i 


lprtlf (  )> 


/»  Print  tha  linas  */ 


for)j=0i  j  <  nlinas  i 


curlocatl linas >10 )» 


colrprtsl budgatt  j 1> FOREGRND ,BACKGRND ) » 


if  (pflag) 


for  (j»lj  j  <*  9j  }♦♦)  lprtcharl 0,  '  ')> 


-■ 


■  -  -  V  ^ 


CvCVCVCSP 


5, 

i 

i 

i 


lprttirl budgat t j  1 J ) 
lprterl )) 
lprtlf(  )> 
plinas+«) 

linas+M 

linas++) 
if  (pflag) 

lprtcr<  )) 
lprtlfl  )) 
pllns»«) 


ofatchl  curst  ID) 

if  (gflag  **  1) 

i  *  axacuta2< "d:  c  graf  tripbar.axa" )) 


ciosa : 

cur  locat(  24,201) 

colrprtal"  Prass  a  Kay  to  continua 

F0REGRN0 ,BACKGRND  1 ) 

pausal 1) 

dona: 


/*  Cloaa  tha  budgat  cursor  »/ 

oclosa< curst  1 J 1 1 

/»  Fraa  tha  budgat  array  */ 


for(i«0)  i  <  50)  i+4)  fraa  (budgat!  i  ]  1) 
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>! 


if  Ipflag)  lprtffl H 
setscaodl  EIGHTY  )  I 
border! BACK6RND )  > 
clscolor!  FOREGRND  ,BACXGRNO )  t 


/M 

/* 

prograa  aodula  gettote 

*/ 

/» 

version  1.0 

*/ 

/» 

authors:  Richard  N.  Hoodaan 

*/ 

/» 

Michael  F  Rail 

*/ 

/* 

*/ 

/» 

*/ 

/* 

*/ 

/* 

Prograa  last  aodifiad  11  tTsraahar  1986 

*/ 

/* 

*/ 

/* 

Purpose:  Displays  budget  vs  expanse  to  data  for 

*/ 

/* 

currant  fiscal  year,  by  cost  class. 

»/ 

/* 

•/ 

/* 

Other  Modules  called:  SELBCL iSELECL >wri tef 

»/ 

/* 

*/ 

/* 

Called  by:  TOBUDEXP 

*/ 

/* 

*/ 

/» 

*/ 

/» 

Files  used:  NONE 

*/ 

/» 

Files  created:  GRAF 

»/ 

/» 

•/ 

/» 

*/ 

/» 

Local  variables:  clno,bud,exp 

*/ 

/» 

line-80-,  Nbudget-100-,  *calloc(  )) 

*/ 

/» 

i*  J»  P9>  pflag,  plinas,  lines,  nlines* 

*/ 

/* 

*/ 
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swa 


NV.V»\V 


W7* 


gittoielwlaet)  hdr,  curs ) 


char  *salaot, 
«hdr» 

short  ourst  11321) 


char 

cZno(31> 
bud [151, 
axptlSl) 


’•3 


char  linalOOl,  *budgat(100l,  *calloc(  )) 

int  1,  j,  pg>  pflag,  gflag,  plinas,  linas,  nlinasi 


W 

.** 


n linas  s  o» 


satscaodf EIGHTY)) 
clacolorf FOREGRND .BACXGPND ) ) 
bordarl BACXGRNO ) ) 
cur  locate  12,23)) 


fori  1*0  >  i  <  50)  is*)  budgatlll  ■  ealloe(l,l)) 

oolrprtsl "Do  you  want  printad  output  ( Y/N )?" ,F0REGRN0 .BACKSRHO ) ) 
if  I gatyasnol 1 ) ) 


V 

*• 

» 


/»  Initializa  tha  print  variablas  »/ 
pflag  a  i) 

for  (J*l)  j  <»  6)  j**)  lprtlfl  )) 

for  IJ*1)  i  <■  1)  j)t)  lprtchartO,  '  ')) 

lprtstr(hdr )) 

lprtcrl  )) 

lprtlfl )) 


lprtlfl  )) 


also  pflag  *  0) 
plinas  ■  0) 
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/»  Initialize  ttw  graph  varlabl*  •/ 
our  loeatl  14,23)1 

oolrprtsl "Graph  Output  ( Y/N )?" >F0RE6RN0 ,BACXG8N0  )  > 
it  I getyesnol 1 ) >  gflag  ■  li 
alaa  gflag  ■  Oi 

elaoolorl FOREGRND , BACK BRNO ) » 

/»  Prooaaa  tha  ORACLE  request  •/ 

/a  Op an  a  euraor  for  tha  budgat  a/ 
if  (oapantaurstl]»eursI01,-l,-l>-l,-l,-l)) 


errrpti ourat 0 1 >4 ) » 
goto  close* 


/a  Ratriava  tha  first  record  a/ 

/a  SELECT  COST_CL_NO.  SUMI LABOR  HSUM1 MATERIAL )*SUMI OTHER), 

FROM  BUDGET  GROUP  BY  COST_CL_NO  a/ 

if  <oeql3 (ourat 11,  select,  -1)  II 

odaf in( oura-l-i  1  >  Aclno>  sizaof  olno >  5>  -1»-1»-1»-1»-1»-1>-1 1  1 1 

odaf in< ourat 11,  2,  C.S,  sizaof  bud,  5,  -1,-1,-1, -1,-1, -1,-1)  II 
oaxacl ours I 1 1 )  II 
ofetchl  curst  ID) 

if(  curat  1  It  01««4) 

cur loca t ( 12 ,30 1 1 

colrprtsf “No  Racords  Salactad" , FOREGRND ,BACKGRN0  )i 
goto  close* 


arrrptl  curst  0 1 ,4 )  * 


goto  eioMi 


Mhile  toureCZHO]  •»  41 

•treat!  line  >  mxp )  i 
if  !atrae»iline>  “  “I  {•  0) 

free!  budgetlnlinee 111 
J  •  a  triant line)! 
budgetlnlinee ]  ■  eallee! Jel>X It 
•t  ropy!  budgetlnlinee].  Xinalt 
if  IgfXag  ■■  II  writeft  lineli 
nlinea«e» 

o fetch* ours! Z 1 ) ) 

/»  Cheek  for  a  very  Large  entry  »/ 
if  Inlinee  >  21 1 


eXeeolor! FORE  HIND .BACX6RND 1 l 
ourloeatl 12 >24 1 1 

oolrprtsl  "WHHHHHHHMfntry  aicceede  20  linM'i 


FORE BRNO , BACK BRNO  I ) 
ourloeatl  24,21  )i 

oolrprtsl "Preee  any  key  to  oontinua  or  4  to  quit" , 

F0RE6RN0 > BACK BRNO  1 1 
getkeyl  IJ>» 

if  Itj  »»  ’q’  )  ||  Ij  ■»  'B'D  goto  done) 
decolor)  FORE  BRNO  .BACK  BRNO  I » 
line*  ■  2t 

for  lj«0»  j  <  n line* i  j**  1  printf!”  '/.%  n". budget!  j  1 It 
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/»  Char#  for  a  full  loraan  a/ 
a  1m  if  (lima  ♦  nlima  >  13) 

eurlooatl  24  >21 ) t 

eelrprti(*frM«  any  kay  to  oontinua  or  4  to  quit* 
roUKMNDiBACXMNDH 
gotkayl  tjlt 
lima  ■  It 

if  l(j  ■■  'a')  II  <J  ‘9*n  goto  donat 
olseolor  (  FOREBRND  'BACKflMtt 1  I 
haadlhdr  It 


/*  Chock  for  a  full  paga  »/ 

if  (pflag  It  (Iplinaa  ♦  nlima  I  >  Bill 

plirna  ■  0| 

i  •  (00  -  a tr lanl  Mr  I  I/’t i 
lprtffl  It 

for  (j-lt  i  <■  4t  !♦♦)  lprtlfl  It 

for  lj«lt  j  <■  it  j*-*  I  Iprteharro,  ’  ’ll 

lprtatrl hdr I t 

lprterl It 

lprtlfl  It 

lprtlfl  It 


/»  Print  tha  lima  */ 
fori  j«Ot  j  <  nlima  t  i+*  I 


our 1 oca i I linaa>10 It 

eolrprtal budgatt  j I .FOPEGPNO .BACKGRNO  1 1 
if  I pflag l 


♦or  IJalt  j  <>  ft  )  IprtoharlO,  *  'll 

iprtatrtbudgetl  j]  It 

lor  tori  It 

Iprtlfl  » 

plllMi*! 

lilWMI 
If  ipflagi 

lprterl ) i 
lprtlfl  l » 
plinoo««i 

If  I0fl^  —  II 

i  ■  exoout*2( “d: lyenet.OMo" »"lyon*4" I t 

ofetchl our* I lilt 

elosos 

ourloootl  24 1 20 1 1 

oolrprtal "  Prooa  ■  Koy  to  oontinuo  "* 

POftEBMND  > BACKBOND  I t 

POUMI  )| 

dono: 

/»  CIom  tho  budgot  cursor  »/ 
oeloool cuts! 1 1 1  i 
/*  freo  tho  budget  array  */ 
for<i«0t  1  <  50 1  I  frool budgatt 1 1 1 1 
If  Ipflag)  lprtffl  It 
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fXOKTYIt 


gattotfci  ultct ,  hdr,  aural 
oh »r  HalMti 
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.aw 


abort  aural  llSEli 


ohar 

efnofSIt 

elneUli 

budiUlt 

a^lUli 

char  linaiMlt  "budgatl  100 ] ,  acallool  ) » 
ini  i»  jt  Pflt  pfiaot  plinaa,  linaat  nlinaai 

nlinaa  ■  Ot 

aatacaodl EIGHTY ) » 
elaoolor I FOHEGHND  tBACKGRNO  1 1 
bordar I BACK6RND  )  l 
our looatl  12,25  >» 

for)  1*01  i  <  SOi  budgattil  a  oalloolltlll 

oolrprtet  "lie  you  Mant  pr in tad  output  ( Y/H  I?”  .FORE BUND  .BACK BRNO ) » 
if  I gatyaanol  1 ) I 

/»  Initialize  tha  print  variablaa  a/ 
pf lag  ■  li 

for  lj»li  j  <■  1 1  j*'*!  lprtlfl  )| 

for  I j»li  j  <■  li  !♦♦)  IprtcharlO,  '  *  1 1 

lprtatrlhdr  >i 

lprterl  )| 

lprtlfl  It 

lprtlfl I I 

alaa  pflag  *  Oi 
plinaa  *  Oi 

clacolorl FOREGRNO .BACKGRNO I l 
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igw»l«gwiwwfarntnBnnnB^TOBnDT«»iinm 


/»  Proont  tha  ORACLE  request  */ 

/»  Opart  a  ouraor  for  tha  budget  a/ 
if  (oopan(eura(l]>our*(0]>-l»-l>-l>-Xt-l)) 

errrptl  oural  0 1  *♦ ) » 
goto  close) 

/»  Ratriava  tha  first  record  a/ 

/*  SELECT  COST_FUN_NO*  COST_CL_NO,  LABOR +MATERIAL+OTHER 
FROM  BUDGET  WERE  LABOR  !■  0  OR  MATERIAL  !■  0  OR  OTHER  !■  0  */ 

if  (osqlSIourstlli  select*  -X)  II 

odefin(curs-l-*  1>  Aefno*  sizaof  ofno >  5>  -1»-1»-1*-1,-1,-1,-1 )  || 
odaf in( ours-1- >  Z >  tclno*  aizaof  cXno >  5»  -1*-1*-1»-1*-1»-1*-1 )  1 1 
odaf ini cura-1- •  3*  C.3»  aizaof  bud ,  5*  -X>-l»-XrX»-XrXrX)  II 
oaxaclcurstl 1)  II 
ofatohl curat  X 1 1 1 

if(ourstlll0l«4) 


ourloeatl  12*30 1 1 

coXrprtal "No  Records  Sa lac tad" , FORE CRNO, BACK BRNO  ) > 
goto  cloaai 


also 


arrrptl  curat  01i4)i 
goto  closat 

/a  Open  a  cursor  for  tha  expanse  a/ 

/a  SELECT  COST_FUN_NO,  COST_CL_NO,  LABOR ♦MATERIAL MOTHER  FROM  EXPENSE 
WHERE  DT  *  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 

(LABOR  !■  0  OR  MATERIAL  !*  0  OR  OTHER  !>  01 


ANO  COST_FUN_NO  ■  :CFN0  AND  COST_CL_NO  ■  :CLN0  a/ 


231 


BWBWWiiiBirowfgigniTiw ranm»—CT»wionCTH»TMTOignopBoynqi?w>nM 


if  toopanlourst2],oursI0],-l,-l,-l,-l,-l)  II 
osql3(curs[ 21 ,  salacfcl ,  -1)  1 1 
odafint curst 21,  X,  tcfno>  sizaof  cfno, 

5.  -1, -1,-1, -1,-1, -1,-1)  II 
odaf  in( curst 2 1 ,  2,  tclno,  sizaof  clno , 

5,  -1, -1,-1, -1,-1, -1,-1)  || 
odafirtfeurst2l,  3,  tup,  sizaof  axp, 

S,  -1, -1,-1, -1,-1, -1,-1)  || 
obndrvl curst 2 1, ":CFN0",-1, to fno, -1,1, -1,-1, -1,-1)  | | 
ofandrvt curst  21, ":CLNO",-l,ielno,-l,l,-l,-l,-l,-l)) 

arrrptl  curst  01,4)) 
goto  olosai 


/»  Ratriava  tha  raaaining  raoords  a/ 
linas  a  2) 
haadlhdr  )> 

Mhila  (ourstlltOl  !■  4) 


nlinas  ■  0) 
atrcpytlina,  cfnoll 
strcatl lina,  "  ")) 

strcatllina,  clno )  i 
strcatl lina,  "  H ) j 
strcatllina,  bud)) 
strcatllina,  M  ")) 


/*  Ratriava  tha  first  sxpsnsa  record  */ 
if  toaxaclcurstt] )  II 
ofatchl curst  21)) 

if  I  curst  2110  ]»4 )  » 

alsa 
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I 

I 

I 

! 


S 


_  .  »•. - .  • .  • . * . » . 


.IvCvl 


A-VlV- 


AA.VA-V.'J 


•rrrptl curst  0 1 >4  1  > 
goto  clossi 


t 

I 


while  Iourst2lt0]  !■  41 

street!  lino.  expli 
if  (strcapl line*  M  ")  !■  0) 

free! budgsttnlinss 11) 
j  ■  strlanl linsli 
budgsttnlinss]  ■  ctUocI  j+l>l  1  i 
strepyt budgsttnlinss 1>  linsli 
nlinss««» 


ofetcht curst  2 ] 1 1 


/»  Chsck  for  s  vsry  largs  sntry  »/ 
if  Inlines  >  211 

clscolor I FOREGRND .BACKGRND ) | 
curlocatl 12 >24 1 | 

colrprtsl  "WHHHHHHBH»Entry  sxcssds  20  lines". 

FOREGRND .BACKGRND  ) ) 
curlocstl 24 >21 1 i 

colrprtsl "Press  any  Kay  to  continue  or  G  to  quit”. 

FOREGRND .BACKGRNO 1 1 
gstksyOjli 

if  II  j  «  'q'l  ||  tj  *■  *Q*  1 1  goto  done! 
clscolor I FOREGRND .BACKGRND  1 1 


linos  ■  2 1 

for  I  3*0 1  j  <  nlinss i  j++)  printfl" 


V.%  n" .budget! 3 Hi 
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i 

\ 


haad(hdr)) 


/*  Chock  for  a  full  paga  »/ 

if  (pflag  St  ((plinas  ♦  nlinas)  >  51)1 


plinas  *  0) 

i  *  (80  -  strlan(hdr) )/Z\ 

IprtffC  )i 

for  (j»l»  j  <»  6)  }♦♦)  lprtlf(  )j 

for  (j»lt  j  <*  it  1  lprtchar(0>  '  ' )» 

lprtstr( hdr ) ) 

lprfcrt )i 

lprtlf<  )j 

lprtlf (  )> 


/*  Print  tha  linas  »/ 
for(j»0i  j  <  nlinas »  j++) 


eurloeatl linas >10 )» 

colrprts( budget! j  1  < F0REGRN0 , BACKGRND  )  > 
if  (pflag) 


for  (j»l>  j  <*  9|  j**)  IprtcharlO,  ’  '  )) 
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| 


lprtstr C budget [ j ] ) > 
lprtorl )) 
lprtlf( )) 
plinMHt 

lines**) 

lines**) 
if  ( pf lag ) 

lprtcrl  )| 
lprtlf(  )) 
pllnMtti 

ofetchl cur* I ID) 

close: 

cur  loeat!  24,20)) 

colrprt«( "  Press  a  key  to  continue 

FOREGRND , BACKGRND ) ) 

pause!  )| 

done: 

/*  Close  the  budget  cursor  */ 
oclosel curst  1 ] ) ) 

/*  Free  the  budget  array  »/ 

for! i«0|  i  <  50)  i**)  freelbudgattil)) 

if  (pflag)  lprtff!  )) 

setscmodl EIGHTY ) ) 

border!  BACKGRND)) 

cisco lor! FOREGRND , BACKGRND  )  l 


gatf jo( salact »  hdr»  curs) 
chsr  *sal«ct , 

»hdr ) 

short  curst  1C 32 1 » 


/*  8EGIN  GETBUOGET  ROUTINE  */ 
char 

cfrto{5  ]  i 
clno(5]> 
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jonotSl) 


char  linel80l>  » jobordt 100 1 •  *calloc(  )) 
int  i»  j,  pg >  pflag*  plines*  lines*  nlines) 


nlines  >  0) 

setscModt EIGHTY ) ) 
olscolorl FOREGRND  tBACKGRNO ) » 
border ( BACXGRNO ) ) 
cur locate  12*23 )) 

for(i»0)  i  <  50)  it*  I  jobordt i]  »  calloc(l*l)) 

colrprtst "Do  you  want  printed  output  ( Y/N )?" , FOREGRND  >BACKGRND  )  i 

if  ( gatyasnol 1 ) ) 

/*  Initialize  the  print  variables  */ 
pflag  *  1) 

for  <  j»l»  j  <■  6)  j**l  lprtlfe  )) 

for  Cj«l)  j  <■  It  j**)  IprtcharlO*  *  1  )) 

lprtstr(hdr)) 

lprtcrl  )  l 

lprtlfC  1) 

lprtlft  )) 

else  pflag  *  0* 
plines  *  0) 

clscolorl FOREGRND *BACKGRND ) ) 

/*  Process  the  ORACLE  request  */ 

/*  Open  a  cursor  for  the  jobord  »/ 

if  ( oopen( curst  1 ] >curst 0 1 *-1  * -1 >-l * -1 *-l )  i 


errrpt ( curst  0 ] *4 ) ) 
goto  close) 


/»  Rairliw  tha  first  rseord  »/ 


mNfumnnnv 


•treat!  line,  jono)» 
if  Istroap! line,  "  " )  J»  0) 

fraa! jobordtnlines ] H 
j  ■  »trl«nl line  It 
jobordlnlinas]  *  calloct j+1,1)) 

•trepy! jobordtnlines],  line)) 
nllnas**i 

/»  Chock  for  a  vary  largo  entry  */ 
if  (nlinas  >  21) 

olsoolor I FOREGRND .BACKGRNO ) > 
cur  locatl  12,24)  t 

colrprts!  "WHHWwnHHHiEntry  axcaads  20  lines", 

FOREGRNO ,BACKGRN0 )  ) 
cur  locatl  24,21)) 

oolrprts! "Press  any  kay  to  continue  or  9  to  quit", 

FOREGRNO , BACKGRNO  ) » 
gatkeyl  *  j  )  t 

if  (( j  'q'  )  II  ( j  »  'Q>  ))  goto  dona) 
cisco lor! FOREGRNO .BACKGRNO ) I 
lines  3  Zi 

for  lj=0)  j  <  nlinas  I  j>*)  printf!"  V.%  n" ,  jobordl  j  1 )  ) 


cn 


/*  Check  for  a  full  screen  */ 
else  if  Hines  ♦  nlines  >  23) 

curlocat! 24,21 )t 

colrprts! "Press  any  key  to  continue  or  Q  to  quit", 
FOREGRND , BACKGRNO  ) » 
gatkeyl  (j)» 
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i  m  w  saaaagaa  -  m  m  immi  bmm  muk 


linos  •  2t 


if  (< j  «•  'q')  ||  ( j  ■«■))  goto  donot 
clscolorl FORESRNO .BACKCRND )  j 
h— d(hdr  )t 


/»  Chock  for  o  full  pogo  »/ 

if  (pflog  U  ((plinos  ♦  nlinos)  >51)) 

plinoo  *  0» 

i  ■  (80  -  strlonlhdr )  )/2t 
lprtffl )t 

for  ( j»lt  J  <■  4 1  j*4)  lprtlf!  )| 

for  (j*lt  j  <«  it  j**)  IprtcharlOt  •  •  )i 

Iprtstr ( hdr ) t 

lprtcr(  )| 

lprtlf!  )t 

lprtlf! )| 


/*  Print  tho  linos  */ 
for(J«0t  j  <  nlinost  j*») 

curlocstl linos >10) ) 

oolrprts( jobordl j ] , F0REGRN0 .BACKGRNO ) | 
if  (pflsg) 

for  (j«lt  i  <■  ft  j**1  lprtchor(0>  '  ') 

lprtstr( jobordl  jilt 

lprtcrl  )t 

lprtlf ( )t 

plinos**! 

linos**! 
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lines**) 


if  (pflag) 

lprtcr)  )) 
lprtlf(  )) 

ofetchl ours t ID) 


olose: 

our  loot  I  24  >20  )) 

colrprts< "  Pros*  a  Kay  to  oontinua 

FORECRNO .BACKGRND )  ) 


/*  Closa  tha  jobord  cursor  */ 

oclosel oursC 1 1 ) >  /*  Fraa  tha  jobord  array  */ 

for(i*0)  i  <  50)  its)  fraa( jobord! i ]) ) 

if  (pflag)  lprtffl  )) 

satscModl EIGHTY ) ) 

bordarl BACKGRND ) ) 

clscolorl FOREGRND > BACKGRND ) » 


HHHHtaaaaaaaaaaaiMHHHHWHHHHHHHHHHMHHHHHHHHHHHHt/ 
program  modula  gatcjo  »/ 

version  1.0  */ 

authors:  Richard  N.  Woodman  */ 

Nichaal  F  Rail  »/ 

*/ 
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Mt«eMd(  CXQMTV )  i 


elMOloH  FOREBRNP  ,MCXORM) ) l 
bordaH  MCK8WN0  I  > 
our  locate  12,23  It 

fori i«Ol  i  <  Ml  jobordtil  *  oalloc(l,l)t 

oolrprt*(  "Do  you  want  printed  output  I Y/N  I?" » FOREQRNO  ,BACK6RND  )  l 
if  Igatyaanol  1) ) 

/»  Initial In  tha  print  voriablaa  »/ 
pflag  ■  1> 

for  IJ»lt  J  <■  *»  !♦♦)  lprtlfl  It 

for  I  j«l |  j  <a  It  ]««|  lprtotorlOi  '  '  It 

IprtatH hdr I » 

lprtcrl  1 1 

lprtlfl  )  i 

Iprtlfl  )i 

also  pflag  a  Oi 
plinos  ■  0 | 

clsoolorl  FOREGRNO  .BACK BRNO  I » 

/»  Prooaaa  tho  ORACLE  roquast  »/ 

/»  Opan  a  ouraor  for  tha  jobord  »/ 
if  loopan<cura(l]»curs(0],-lf-l,-l,-l,-l)) 

arrrptl our* 1 0 1 ,4 ) t 
goto  oloaai 


/»  Ratriava  tha  firat  racord  »/ 

/•SELECT  COST_FVJN_NO ,  COST_CL_NO,  JOB_ORD_NO 
FROM  JOB_ORD  WHERE  COST_CL_NO  ■  »/ 

if  <o*ql3lcurt(l],  talact,  -1)  II 

odaf inCcur*-l-,  1,  tcfno ,  sizaof  of no,  5,  -1, -1,-1, -1,-1, -1,-1 1  II 
odaf in( cur*-l- ,  2 ,  iclno ,  tizaof  clno ,  5,  -1, -1,-1, -1,-1, -1, -1 )  II 
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a!  *1  »l.  i1  .I.  if  if.af.  if.  il.  iK'ii.  jf.  |l,  jf,  t  .  it.  i  f.  i*i  |  .  ill  i 


odsf inlours-1-,  S>  I jono,  sizeof  jono,  5>  -1, -1, -1,-1, -1,-1, -l )  1 1 


sloursdl)  II 


ofatchl  ours  [  ID) 


if  ( ours  1 1  )1 0 1««4 ) 


our locate  12,30 )t 


oolrprtsl "No  Reoords  So looted" ,F0RE6RM),BACKGRND ) | 
goto  closet 


errrpt! curst 0 ] ,0 )  t 
goto  closoi 


/*  Retrieve  the  reeairti 

lines  ■  2 i 

heedlhdr)! 

Mhila  I  curst  1  H0 1  !■  4) 


nlines  a  o» 
strcpyl line,  clnolt 
street!  line,  " 
street!  line,  cfnoli 
street!  line,  "  M)i 
street!  line,  elno)! 
street!  line,  "  '•)! 
street!  line,  jono  It 


if  I streep! line,  "  M)  !«  0) 


free! jobordl nl ines 1 1 1 

j  a  strlsn!  line)! 

jobordl nlines]  a  cellocl j+1,1 It 


atrcpyt  jobordl nlinaa 1 •  lina )  t 


/»  Chack  for  a  vary  largo  an try  »/ 
if  (nlinaa  >  21) 


claoolorl  FOREGRND  .BACKGRNO )  ) 
our locat ( 12 * 24 ) » 

oolrprtal . . .  axoaada  20  linaa”* 

FORE SAND , BACKGRNO I ) 
our  locat(  24*21)) 

oolrprtal  "Praam  any  kay  to  continua  or  Q  to  quit*** 
FOREGRND *BACKGRN0 ) ) 
gatkayt tj)) 

if  1 1 j  «■  'q'  )  II  ( j  ■■  ) )  goto  dona) 

elacolorl FOREGRND ,BACKGRND  ) ) 
linas  a  2| 


for  IJ«0)  j  <  nlinaa)  !♦♦)  printfC 


Xa  n” *  jobordt j 1 ) ) 


/*  Chack  for  a  full  acraon  */ 
alaa  if  llinaa  ♦  nlinaa  >  25) 


curlocatl  24*21)) 

colrprtal "Praaa  any  kay  to  continua  or  G  to  quit”* 
FOREGRND  >BACKGRN0 ) ) 
gatkayl  t  j )) 
lina  a  *  Z\ 

if  II j  *■  'q')  II  1 5  *9'  I  >  goto  dona) 

elacolorl FOREGRND  >BACKGRND ) ) 
haadlhdr)) 


/*  Chack  for  a  full  paga  «/ 


'fJ&WMK 


If  (pf las  t>  ((plinaa  ♦  nlinaa)  >  51)) 

plinaa  ■  0) 

i  ■  (80  -  atrlan(hdr))/Zt 
lprtffl  >» 

for  <  j«l»  j  <■  61  lprtlf  (  M 

for  (j«l»  J  <■  it  !<♦)  lprtchar(0»  • 

lprtstr(hdr)» 

lprtcrl  )» 

lprtlf  (  )» 

lprtlf (  )» 

/»  Print  tha  linoa  »/ 
for(j*0»  j  <  nlinaa >  j**) 

our locate linas»10 )l 

oolrprtsl jobordl j 1 .FORECRNO »BACKGRND  I ) 
if  (pflag) 

for  IJ*1|  j  <■  9|  lprtcharl 0 

lprtatrl jobordl j ] ) | 

lprtcr(  It 

lprtlf(  )» 

plinaa**) 

linaa**) 

linaa**) 
if  (pflag) 

lprtorl  >) 
lprtlf(  H 
plinaa**) 


/*  Called  by:  INDVOISP 
/» 


/»  Files  us  ad:  NONE 


/*  Local  variables :  cfno,clno,bod,exp 
/»  lino-80- .  *budget-100- t  *calloe(  )» 

/*  it  J.  pgr  pflagi  p lines,  linos >  nlinas) 


gethour! select .  hdr >  curs) 
cher  *select> 


short  curst]  [32  b 


cfno( 5 ) t 
clno(5). 


bud(50). 


axp( 30 ) ) 


char  line) 80  )t  «budget( X00 ).  *calloc(  b 
int  it  j.  pflt  pflag,  plinost  linost  nlinest 


nlinos  *  0» 


sstscmodl EIGHTY ) t 
ciscolor ( FOREGRND ,BACKGRND ) » 
border! BACKGRND ) i 
curlocot! 12,23  ft 

for(i*0t  i  <  50»  i++)  budget!  i  ]  »  callocl 1,1ft 

colrprts! "Oo  you  want  printed  output  < Y/N )?" .FOREGRND .BACKGRND b 


if  ( getyesnol 1 ) ) 


/*  Initialize  tha  print  variable*  */ 
pflag  1  1» 

for  <j=lt  j  <-  6)  j**)  lprtlf(  It 

for  <  3*1 »  j  <=  li  j++)  lprtchar(0>  '  *)| 

lprtstrt  hdr )  t 

lprtcrl  It 

lprtlf (  )t 

Iprtlfl  )t 


•Isa  pflag  *  Ot 
plinas  >  Ot 


clscolorl FOREGRND >BACKGRNO  1 1 
/*  Process  the  ORACLE  request  */ 

/*  Open  a  cursor  for  the  budget  •/ 
if  (oopent curst I]»curst0]>-1»-Ii-1»-1>-1) > 


errrptt  curst 0 1 ,4 1 > 
goto  closet 


/»  Retrieve  the  first  record  */ 


/*  SELECT  COST_FUN_NO,  COST_CL_NO,  HOURS 
FROM  BUDGET  »/ 


if  (osql3(curstll>  select >  -1)  II 

odef in( curs-1- ,  1,  tcfno >  sizeof  cfno,  5»  -1»-1»-1*-1*-1»-1»-1 1  II 
odef in( curs-1- <  2,  Sclno >  sizeof  c lno > 5 *  -1»-1»-1»-1»-1»-1>-1 )  II 
odef in( curs-1- *  3*  C.3>  sizeof  bud>  S»  -1»-1>-1»-1»-1*-1»-1 )  II 
oexacl curst  111  II 
of  etch!  curst  ID) 


if  <  curst  l]t0l  =  =4) 


/.  r.V.V.V.  -'.  V.V.V 


cup  locate  12  ,30  )t 


colrprtsl "No  Record*  Selected" ,F0REGRN0 ,BACKGRND ) » 
goto  close  > 


•ls« 


errrpt(curs[0),4)> 
goto  closes 


/*  Open  a  cursor  for  tha  expense  */ 

/»  SELECT  C0ST_FUN_N0  ,  C0ST_CL_N0,  HOURS 

FROM  EXPENSE  WHERE  0T  a  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  »  :CFN0  AND  C0ST_CL_N0  »  :CLN0  */ 
if  (oopen(curs(2],curs(0],-l,-l,-l,-l,-l)  II 
osql3( curst 21,  se labour,  -1)  II 
odefin(curs(2l,  1,  Scfno,  sizaof  cfno, 

5,  -1, -1,-1, -1,-1, -1,-1)  || 
odafin(curs(2l,  2,  tclno,  sizaof  clno, 

5,  -1, -1,-1, -1,-1, -1,-1)  || 
odefin(curs(2],  3,  iexp,  sizaof  exp, 

5,  -1, -1,-1, -1,-1, -1,-1)  II 
obndrv(cursl2l, ":CFN0", -l.Acfno, -1,1, -1,-1, -1,-1)  II 
obndrv(cursl2  ]>":CLNO",-l,Sclno»-l»l»-l,-l»-l,-l ) ) 

arrrpt ( curs 1 0 ] ,4 ) | 
goto  closes 


/»  Ratriava  tha  remaining  records  */ 
lines  a  2 1 
headlhdr )» 

while  ( curst  1 1(0]  !*  4) 


nlinas  a  Os 


strcpylline,  efnolt 


i'.  »>.  !»,  sje  lit  4%  |>  |  |  «*>  I'll'irilrOti'ii  at  l.t  ♦.*  i-*4.4  t> 


street)  line,  “  -It 


•treat)  line,  elnolt 


•treat)  line,  "  "It 


•  treat)  lina>  bud ) ( 


/»  Retrieve  the  first  address  record  •/ 


if  )oexec) curst  21 J  II 


ofeteh(curst2])l 


if)cur*l2H0]*=4)  t 


errrpt) curst  0 1 *4 ) t 


goto  closet 


while  ) curst 2 ItOl  !■  4) 


•treat)  line,  -  "It 


•treat)  line,  exp  It 


if  (stremp) line,  -  "I  !>  01 


free) budget Inline*] ) t 


j  *  strlen) line  It 


budgettnlines ]  •  calloc) j+1,1  It 


strcpylbudgettnlinesl,  linelt 


nlines>+ t 


of etch) curst  2 ] ) t 


/*  Cheek  for  a  very  large  entry  */ 


if  Inline*  >  211 


w'Ui-,  ■■  .*  ■' 


clscolorl FOREGRND , BACKGRND ) s 
our locate  12, 24 )> 

colrprtsl  "WHHHHHHHMEntry  exceeds  20  lines", 

FOREGRND ,BACKGRND ) S 
cur locate  24,21 )s 

colrprtsf "Press  any  Kay  to  continue  or  0  to  quit", 

FOREGRND ,BACKGRN0 )  s 
getkeyl  Aj 1 s 

if  ee  j  »«  'q' )  ||  ej  ■■  *Q*  >  1  goto  dorses 
clscolorl FOREGRND, BACKGRND ) » 
lines  «  2s 

for  (j*0i  j  <  nliness  j+*  )  printfl"  7.%  n" , budget!  j  1 )  s 


/*  Check  for  a  full  screen  */ 
else  if  Hines  ♦  nlines  >  23) 

cur  locate  24,21)s 

colrprtsl "Press  any  key  to  continue  or  Q  to  quit", 
FOREGRND ,BACKGRND ) ) 
gatkaye  S j I s 
lines  i  2i 

if  ((j  33  'q* )  ||  (j  33  'G'  ) )  goto  donas 
clscolorl FOREGRND , BACKGRND ) S 
headl hdr ) s 

/*  Check  for  a  full  page  */ 

if  Ipflag  AS  Uplines  ♦  nlines)  >51)) 

plinas  ■  Os 

i  *  180  -  strlenl hdr  )  )/2s 
lprtffl  )s 

for  (j«ls  j  <*  4s  j*+)  lprtlfl  )s 


•  I 


for  lj“lt  j  <a  i)  j**l  lprtcharlO, 
lprtstrlhdr  It 
lprtcrl  )) 

Iprtlfl It 
Iprtlfl  It 


/*  Print  the  lines  a/ 
forlj»Oi  j  <  nlinas)  j**l 

curlocatl lina* >10 ) t 

colrprtsl budget! j ] .FOREGRND .BACKGRNO ) t 
it  (pflag) 

for  <j«lt  j  <*  9t  j++)  lprtcharl 0, 

lprtstrl budget!  j 1 1 t 

lprtcr(  It 

Iprtlfl  )| 

plines«+| 

lines** t 


lines** t 
if  l pflag 1 

lprtcrl  It 
Iprtlfl  It 
plines**t 

ofatchl curst  lilt 


closa: 

curlocatl  24,20  1 1 


colrprtsl 


Prass  a  Kay  to  continue 


/»  Files  used:  NONE 


*/ 

/*  */ 

/»  */ 

/»  Local  variables:  cfno,clno,bud,axp  */ 

/»  line -80- ,  Mbudget-100- >  «calloc(  ))  »/ 

/»  i>  j,  pg >  pf lag,  p lines,  lines >  nlines)  */ 

/*  */ 


get lab! select >  hdr*  curs) 
char  “select  > 

*hdr) 

short  curs! )C 32 )) 


char 

cfnol 5 ) i 
clno! 5 ) > 
budl  20), 

exp(  20 ) ) 

char  line)  80)>  "budget!  100),  "callocl  )) 
int  i,  j,  pg,  pflag,  plines,  lines,  nlines) 

nlines  «  0| 

setsemod!  EIGHTY ) | 
clscolorl FOREGRND .BACKGRNO ) j 
border! BACKGRNO ) i 
curlocat!  12,231) 

forli»0)  i  <  SO)  i+>)  budget!  il  «  calloc(l,l)) 

colrprtsl  "Do  you  want  printed  output  IY/N)?”, FOREGRND, BACKGRNO)) 
if  ( getyesno!  1 ) ) 

/"  Initialize  the  print  variables  »/ 
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mBmmmmimmwmmmmmmm- 


jnonmp 


urunwxjnuriF 


vnwwwwww 


pf  lag  »  1» 

for  (j«l»  j  <*  6»  j**)  lprtlfi  )) 

for  (j»l»  j  <*  1»  j*+)  IprtcharlO.  *  ')» 

lprtstr)  hdr )  > 

lprtcrl  )i 

lprtlfl  )t 

lprtlf ( )| 

•Iso  pf lag  *  0) 
plinos  a  0) 

clseolor ( F0RE6RN0 ,BACKGRND ) t 
/*  Procoss  tha  ORACLE  raquost  •/ 

/*  Opart  a  cursor  for  th«  budget  */ 
if  (oopan<curstll>curs[Ol»-l,-l,-l,-li-l)) 


•rrrptl  curs  1 0 1 ,4 1 1 
goto  closai 


/»  Ratriava  tha  first  racord  */ 

/*  SELECT  COST_FUN_NO,  COST_CL_NO,  LABOR 
FROM  BUDGET  */ 

if  (osql3lcurstll>  select,  -1)  II 

odaf in( curs-1- ,  1»  tcfno,  sizaof  cfno,  5,  -1»-1»-1»-1»-1>-1»-1)  II 
odaf in( curs-1- >  2,  Seine >  sizaof  clno .  5,  II 

odaf in ( curs-1- ,  3»  C.3*  sizaof  bud >  5,  )  II 

oaxacl curst  1 1 )  II 
ofatch)  curs!  ID) 

if  I  curst  1  HO  1=»4) 

curlocatl  12,30)) 

colrprtsl "No  Records  Salactad" , FOREGRNO ,BACKGRND  I  \ 
goto  close t 
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•rrrpil  curst  0 1  *4 )  t 
goto  closet 


/*  Open  a  cursor  for  the  expense  #/ 

/*  SELECT  COST_F(JN_NO,  COST_CL_NO,  LABOR 

FROM  EXPENSE  NHERE  DT  >  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  »  sCFNO  AND  COST_CL_NO  »  :CLNO  */ 
if  (oopen(cursl2l»curst0]>-l>-l>-l»-l»-l)  II 
osql3(cursI2l»  selelab,  -1)  II 
odefin(curst2l»  1,  tcfno>  sizaof  cfno> 

5,  -1, -1,-1, -1,-1, -1,-1)  I! 
odefin( curst 2).  Z,  Sclrvo >  sizaof  clno> 

5,  -1, -1,-1, -1,-1, -1,-1)  II 
odafin(cursI2],  3>  texpi  sizaof  exp, 

5,  -1, -1,-1, -1,-1, -1,-1)  II 
obndrvl curst 2 l,":CFNO",-l,«cf no, -1,1, -1,-1, -1,-1)  II 
obndrv(curst2],":CLN0",-l,«clno,-l,l>-l>-l>-l>-l)) 

errrpt  (  curst  0 1 >4 ) t 
goto  closa t 


/*  Retrieve  tha  remaining  records  */ 
lines  a  2t 
head! hdr ) t 

while  (curstlltOl  !»  4) 

nlirtes  *  0) 
strcpylline,  cfno)l 
street!  line,  "  ••)» 

strcet(line>  clnol) 
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colrprtsl  "WHHHHHHHHHJntry  exooede  20  linos'*  > 

FOREGRND »BACKGRN0 ) j 
our  locatl  24,21)1 

colrprtsl "Press  any  Kay  to  continue  or  9  to  quit", 

FOREGRND .BACKGRND )  ) 
gotkeyl  2j)l 

if  ( (  j  ■■  *q' )  II  (  j  ■■  '9'  ) )  goto  dono) 
decolor  (  FOREGRND  .BACKGRND ) > 
linos  ■  2> 

for  (3*0)  j  <  nlinos)  printfl"  '/.*  n" , budget! j  1 )) 

* 

/»  Chock  for  a  full  seraan  */ 
also  if  (linos  ♦  nlinos  >  23) 

cur locate  24,21 )) 

colrprtsl "Pros*  any  Kay  to  continue  or  9  to  quit's 
FOREGRND ,BACKGRN0 ) I 
gotkeyl 23 )> 
linos  a  2) 

if  ( <  3  *■  'q'  >  II  (3  **  *9' ) )  goto  done) 
decolor)  FOREGRND  .BACKGRND  )  I 
head! hdr ) ) 


,4 


/»  Check  for  a  full  page  »/ 

if  (pflag  22  Uplines  ♦  nlinos)  >51)) 


j 

4 

4 


plines  *  0| 

i  *  (80  -  strlenlhdr )  )/2) 
lprtffl  ) ) 

for  (3*1)  3  <*  5)  3**>  lprtlf( )i 
for  (3*1)  3  <*  i*  jf*>  lprtchar(0»  '  ')) 
IprtstrChdr ) ) 
lprtcrl  )  i 


— e*wanpnqnc»nw*BHir»nwinni  n«iiiwwwmiwnw',w\nnimnrvwMwiunnin»Btmmiiiniiii»iiiii 


lprtlf!  H 
lprtlf!  )* 


/»  Print  tha  linas  »/ 
for(j«Oi  j  <  nlinasi  j+-») 

our locate linas, 10 )» 

colrprts! budgat [ j 1 . FOREGRNO ,BACXGRND  )  I 
if  (pflag) 

for  (j»l»  j  <■  j+a)  lprtcharlO,  '  ')» 

lprtmtr ( budgat [ j 1 ) > 

lprtcr! H 

lprtlf!  )t 

plinas++> 

linaa**» 


linasaaj 
if  (pflag) 

lprtcr!  )) 
lprtlf (  )» 
plina»**» 

ofatch( cur* 1 1 1 ) » 


eloaa: 

curlocat( 24 ,20  It 

colrprta!"  Prass  a  Kay  to  continua 

FOREGRNO .BACKGRNO ) J 

pa us a (  )  ( 
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/*  Close  the  budget  cursor  */ 
oclosel curst  lilt 


/»  Free  the  budget  array  */ 

fori i*0 1  i  <  50 1  i+* )  fraal budgatt i 1 ) t 

if  Ipflag)  lprtffl  It 

setscaodl EIGHTY  It 

border I BACKGRND I t 

clscolorl FOREGRNO > BACKGRND I t 


/** 

/* 

/» 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/» 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


program  module  gat mat  */ 

version  1.0  */ 

authors:  Richard  N.  Woodman  */ 

Michael  F  Rail  */ 

*/ 

*/ 

*/ 


Program  last  modified  20  January  1986  »/ 

*/ 

Purpose:  Displays  budget  vs  expense  by  cost  function  */ 

cost  class  for  material  to  date.  */ 

»/ 

Other  modules  called:  SELMAT,  SELEMAT  */ 

»/ 

Called  by:  IN0V0ISP  */ 

*/ 

*/ 

Files  used:  NONE  */ 

*/ 

*/ 

Local  variables:  cfno,clno,bud,exp  */ 

line-80-,  *budget-100- ,  *calloc( It  •/ 
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it  j,  pg»  pflag>  plinaa.  linaa,  nlinaat 


/* 

/» 

/« 


gatnatl  aalact  >  hdr ,  curs) 
char  »*alact , 

*hdr  t 

abort  curat 1152  It 


*/ 

*/ 

■*/ 


char 

cfnot51> 
clnotSl> 
bud l 201. 
axpt  20 1  i 

char  Iina(80l»  *budgattl00l»  *calloc(  )  i 
int  i>  j,  pg,  pflag>  plinaa*  linaa*  nlinaat 

nlinaa  •  0) 

aatacmodl EIGHTY ) t 
clacolorl FOREGRND > BACKGRNO ) t 
bordar <  BACKGRNO ) I 
curlocatl  12*23)1 

for(i*0»  i  <  50 1  i++)  budgatti]  *  calloc(l*l)t 

colrprtaC "Do  you  want  printad  output  <  Y/N )?"* FOREGRND * BACKGRNO  )  i 
it  ( gatyasnol  1 ) ) 

/*  Initialize  tha  print  variablaa  */ 
pflag  *  It 

for  (jail  j  <■  6 1  j*t)  lprtlf( )l 
for  (j*Xt  j  <■  It  j++)  lprtcharlO*  *  *  )l 
lprtatrlhdr  )| 
lprtcr(  )  t 


iprtif (  1 1 


lprtlfl  )> 


else  pflag  s  0| 
plines  *  0 l 

clscolorl FOREGRND .BACKGRND ) ( 

/•  Procast  tha  ORACLE  request  */ 

/*  Opart  a  cursor  for  tha  budgat  */ 

if  ( oopenl curs 1 1 ] , curs 1 0 3, -1,-1, -1,-1, -11) 

arrrpt ( curst  0 1 >4 ) I 
goto  closat 


/*  Ratriava  tha  first  racord  */ 

/*  SELECT  COST_FUN_NO,  COST_CL_NO,  MATERIAL 
FROM  BUDGET  a/ 

if  (osql3( curst  11,  select,  -1)  II 

odaf in( curs-1- ,  1,  Scfrto,  sizaof  cfrto ,  5 ,  -1,-1,-1»-1>-1,-1,-1 )  II 
odafin(curs-I->  2,  tclno,  sizaof  clno»  S,  -1F-1,-1>-1>~1»-1>-1)  II 
odafintcurstll,  3,  C.3»  sizaof  bud ,  5,  -1,-1»-1»-1>-1>-1>-1)  II 

oexac(curstll)  II 
ofetchl curst  1 ] ) ) 

ifl  curst  1  HO  ]»4) 

curlocatl  12 ,30 )» 

colrprtsf'No  Records  Salactad" , FOREGRND , BACKGRND ) » 
goto  close t 


else 


arrrptl curst  0 ] *4 ) t 
goto  close t 
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/»  Opart  •  cursor  for  tha  axpansa  */ 

/*  SELECT  COST_RJN_NO,  COST_CL_NO,  MATERIAL 

FROM  EXPENSE  NHERE  OT  *  (SELECT  MAX1DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  *  : CFNO  AND  COST_CL_NO  =  iCLNO  */ 
if  (oopanlcursf 2],cur*t0l,-l,~l,-l,-l,-l)  II 
osql3(  curst  21,  salemat,  -1)  II 
odafirri  curst  21,  1,  Xcfno .  sizeof  cfno, 

S,  -1,-1, -1,-1, -I, -1,-1)  II 
odaf in(curst2l,  2,  iclrto,  aizaof  clno , 

5,  -1, -1,-1, -1,-1, -1,-1)  II 
odafin(cur*t2l,  S,  Saxp,  aizaof  axp, 

5,  -1, -1,-1, -1,-1, -1,-1)  II 
obndrv(curstZl,":CFNO",-l,*cfno, -1,1, -1,-1, -1,-1)  1 1 
obndrvl curst  2  l,":CLNO",-l,*clno,-l, 1,-1, -1,-1, -1)) 

arrrptl curst  0 1 ,4 ) » 
goto  cloaai 


/*  Ratriava  tha  remaining  racords  */ 
linas  *  2i 
headlhdr  )  t 

whila  ( curst  1  It  0  )  !  *  4) 

nlinas  *  0| 
strcpyllina,  cfnolt 
strcatClina,  "  ")l 

strcatllirta,  clno  )» 
strcatl  lina,  "  "  lv 
strcatllirta,  bud )  t 


/*  Ratriava  tha  first  addrass  record  */ 
if  (o*xec( curst Zl )  II 


of *tch( curs  1 2 ] ) ) 


if(curst2ltOl»4)  » 

•lM 

•rrrp t C curst  0 1 ,4 ) } 
goto  clossi 


while  (curst2H0l  !»  4) 


street!  line,  " 
strcatlline,  exp )  } 
if  (strcmp( line,  "  " )  !>  0) 


f rss( budgsttnlinss 1 ) t 
j  *  striane line)} 
budgsttnlinss!  =>  called j+1,1 ) i 
strepyl budgsttnlinss],  lins)} 
nlinss**} 


ofstchl curst  2 ] I } 


/»  ChscK  for  a  vary  large  an try  */ 
if  (nlinss  >  21) 

clscolor ( FOREGRND .BACKGRNO ) | 
cur locate  12,24 )) 

colrprtsl  ”}HHHHHHHHH>Entry  exceeds  20  lines", 
FOREGRND iBACKGRND ) } 
cur locate  24,21 )} 

colrprts( "Press  any  Key  to  continue  or  Q  to  quit", 
FOREGRND ,BACKGRND  ) ) 
getkeyl Aj )) 

if  e ( j  ■■  'q' )  ||  ej  *■  *0'))  goto  dons) 
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minim  him  n  n uinuvui  n 


decolor! F0RE6KND  tBACKGRND ) t 
lines  •  2$ 

for  (j»Oi  j  <  nlinaa!  j**)  printf(M  ’/.*  n" .budget!  j  1 1 » 


/*  Chock  for  «  full  acroon  */ 
also  if  (linaa  ♦  nlinaa  >  23) 

curlocat( 24,21 ) i 

colrprts! "Praaa  any  kay  to  continue  or  Q  to  quit*** 
FOREGRND .BACK6RND ) ! 
gatkayl A  j ) I 
linaa  3  2i 

if  (( j  «  'q' 1  1 1  ( j  ■■  *9* ))  goto  done! 
decolor!  FOREGRND  .BACKGRND  )  s 
head) hdr ) i 

/*  Check  for  a  full  page  »/ 

if  (pflag  At  ( I plinea  ♦  nlinaa)  >  51)) 

plinea  3  0! 

i  «  (80  -  atrlenlhdr  I  )/2> 
lprtff(  ) ! 

for  (j=l!  j  <»  6!  j«-*)  lprtlfl  )! 

for  (j*l!  j  <»  i|  j++J  lprtcharlO.  '  ’  )| 

lprtatr(hdr )» 

lprtcr(  ) ! 

lprtlf(  )! 

lprtlfl  ) ! 

/*  Print  the  linaa  »/ 
forljsQi  j  <  nlinaa !  j++) 
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'V.Va'aV.'.V.Vaa'. 


'-\V  V.-...' V-L'-  \ 

kk.  1  eVa  Am  A  a  A  *  A  »  »  a  A  a  Am  &  a)  a  min 


cur locate lino*>10 )| 

colrprtal budget! j 1 , FOREGRNO ,BACKGRND ) » 
if  (pflag) 

for  (j»lt  j  <■  j«-»)  IprtcharlO 

lprtatrl budget! jl)i 

lprtcrl  I) 

lprtlfl  )) 

plinee+M 

linea++t 


linea+M 
if  (pflag) 


lprtcrl  It 
lprtlfl  It 
plines**) 


ofatchl  oura!  lilt 


cloaa: 

curlocatl 2% >20 ) t 

oolrprtal "  Preaa  a  Kay  to  continue 

FOREGRNO  tBACKGRNO ) ) 

pauael  It 


/*  Cloae  the  budget  curaor  »/ 

ocloael cure! 1 ] )  t 

/*  Free  the  budget  array  »/ 

fori i«0t  i  <  50)  i**l  free!  budget! i 1 ) t 

if  l pflag  I  lprtffl  )v 


aetacaodl EIGHTY  It 


border! SACKGRND  ) » 
elsoolor! FOREGRNO .BACKGRNO ) i 


V 


\ 

\ 

I 

■ 


/IHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHBHHHHHHI/ 
/*  program  Module  getoth  */ 

/*  version  1.0  V 

/*  authors:  Richard  N.  Woodmen  */ 

/»  Michael  F  Rail  */ 

/*  »/ 

/*  */ 

/*  */ 

/*  Program  laat  modified  20  January  1986  */ 

/»  */ 

/»  Purpose:  Displays  budget  vs  expense  by  cost  function  */ 

/*  cost  class  for  other  to  date.  »/ 

/»  */ 

/»  Other  modules  called:  SELOTH,  SELEOTH  */ 

/*  */ 

/*  Called  by:  INDVOISP  */ 

/»  */ 

/*  */ 

/*  Files  used:  NONE  */ 

/»  »/ 

/*  */ 

/*  Local  variables:  cfno*clno*bud>exp  */ 

/*  line-80-*  *budget-100-*  *calloc( )>  */ 

/•*  i>  j*  pg>  pflag*  plines*  lines*  nlinesi  */ 

/*  */ 

. . . 

getoth! select*  hdr*  curs) 
char  ^select* 

*hdr> 
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short  curst  H32l» 


char 

cfnot51, 
cino(5]> 
budt  20 1 1 
axpt  20 1  t 

char  lina(80]>  "budget! 100 1,  "callocl )» 
int  i»  j ,  pg,  pflag,  plinas,  linas,  nlinest 


nlinas  <  0) 

setscnodl  EIGHTY ) » 
clscolorl FOREGRND .BACKGRNO ) » 
border I  BACKGRNO )  i 
curlocatl 12,23 )» 

for(i*0»  i  <  50 1  i+* I  budgattil  ■  callocl 1,1)1 

colrpr ts( "Do  you  want  printed  output  ( Y/N)?", FOREGRND, BACKGRNO )» 
if  I getyesnol 1 ) ) 

/*  XnitiaXiza  tha  print  variables  */ 
pflag  *  It 

for  I  j»l»  j  <■  lprtlfl  )  t 

for  (j*li  j  <“  It  j**l  IprtcharlO,  '  ' H 

lprtstrihdr )i 

lprtcrl  )  t 

lprtlfl  )i 

XprtlfC  1 1 

also  pflag  ■  0> 
plinas  »  0 1 

clscolorl  FOREGRND, BACKGRNO  1 1 
/*  Process  the  ORACLE  request  */ 
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/a  Op«n  a  curs  for  tha  budgat  */ 
if  loopanl curst  1 1 .curst  0 > ) 


•rrrptl  cup*  [  0 1  »4 )  t 
goto  cl os a > 


/a  Ratriava  tha  first  racord  »/ 

/a  SELECT  COST_FUN_NO,  COST  *_CL_NO,  OTHER 
FROM  BUDGET  a/ 

if  (osql3l curst 11»  select.  -X)  II 

odaf in( curs-1-,  1,  tcfno ,  sizaof  of  no,  5 >  -1»-1»-1»-1»-1>-1>-1)  II 
odaf in( curs-1- ,  2,  tclno ,  sizaof  cl no ,  5 ,  -l,-i»-l»-l»-X»-l»-l )  II 
odaf in ( curs-1- ,  J,  C.3»  sizaof  bud ,  5 ,  -1,-1,-1»-1»-1»-1,-1 )  II 
oaxacl curst  1 1 )  II 
ofatchl curst  111) 

if!  curst  1H0]»*4) 

curlocatl  12,30)1 

colrprtsl "No  Records  Salactad" , FQREGRNO  .BACKGRNO  )  t 
goto  close > 


•Isa 


arrrptl  curst  0 1  *4 )  i 
goto  closet 


/a  Opan  a  cursor  for  tha  expanse  •/ 

/a  SELECT  COST_FUN_NO,  COST_CL_NO,  OTHER 

FROM  EXPENSE  WHERE  OT  =  (SELECT  MAXI DT )  FROM  EXPENSE)  AND 
COST_FUN_NO  *  :CFNO  AND  COST_CL_NO  =  :CLNO  */ 
if  ( oopanl curst  2  1  .curstO  1  .-l.-l.-l ,-1,-1  )  II 
o*ql3(curs[2],  saleoth,  -1)  II 


odafin) curst  21,  1.  tcfno,  sizeof  of no , 

5,  -1, -1,-1, -1,-1, -1,-1)  II 
odefintcursl2l,  2>  tclno,  ilzwf  clno , 

5,  -1, -1,-1, -1,-1, -1.-1)  II 
odafin) curst  21,  3,  Xaxp ,  sizeof  sxp , 

5,  -1, -1,-1, -1,-1, -1,-1)  II 
obndrv(cursl2l,":CFN0",-l, tcfno, -1,1, -1,-1, -1,-1 )  1 1 
obndrvl curst  2 1, CLNO", -1, tclno, -1,1, -1,-1, -1,-1 ) ) 

arrrpt) cur* 1 0 1 ,4 ) I 
goto  close) 


/*  Retrieve  the  remaining  records  */ 
linaa  *  2) 
head) hdr ) ) 

while  ( curst  1  HO  1  !*  4) 

nlinas  *  0) 
strcpy) lina,  cfno)> 

•treat) lina,  ”  ” >! 

strcatllina,  clno)) 

•treat) lina,  "  ">) 

•treat) lina,  bud ) i 


/*  Ratriava  tha  first  address  racord  */ 
if  )oexec( curst  21 )  II 
ofatch) curst  2 1 ) ) 

if)curst2H0]*=4)  ) 

alsa 


arrrpt)  curst  0 1,4)) 
goto  closa) 
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while  Icurst2JI0J  !»  4) 


•treat!  line,  "  ")» 

•treat! line,  axp ) t 
if  (strcapllina,  "  ")  !■  01 


f raa! budget [nlinas 1)1 

j  a  strlan! line ) ) 

budget [ nl inas 1  a  calloc! j*l,l )> 

strcpyl budgettnlines 1 ,  line)) 

nlines**) 


of etch! curst  2 1 ) » 

/*  Check  for  a  very  large  entry  */ 
if  (nlines  >  21) 

clscolor! FOREGRND > BACKGRNO ) ) 
ourlocat! 12,24 )) 

colrprts!  "WHHHHHHHwEntry  exceeds  20  lines" , 
FOREGRND .BACKGRNO ) ) 
curlocatl 24,21 H 

colrprts! "Press  any  key  to  continue  or  Q  to  quit 
FOREGRND , BACKGRNO  )  1 
getkey! *j )) 

if  l!j  »■  'q' )  II  Ij  »»  'Q' ))  goto  done) 
clscolor! FOREGRND , BACKGRNO  )  ) 
lines  ■  2) 

for  !  j=0)  j  <  nlines)  j**)  printf!"  ’/.%  n 


/»  Check  for  a  full  screen  */ 


•1m  if  (lin«*  ♦  n linas  >  23) 

curlocatl  24.21  )| 

colrprtsl  "Prass  arty  Kay  to  oontinua  or  Q  to  quit". 

FOREGRNO .BACKGRND ) ( 
gatkayl  J  j  )> 
linos  ■  2) 

if  II  j  ■■  *q*  1  II  (j  ■«  '4'))  goto  donav 
olscolor I FOREGRNO  .BACKGRND ) i 
haadl hdr ) ) 


/»  Chock  for  a  full  paga  */ 

if  (pflag  <2  llplinas  ♦  rtlinas)  >51)) 

plinas  «  0» 

i  a  (80  -  strlan( hdr  )  1/2 1 
IprtffC  )» 

for  (j«ll  J  <«  6l  j**)  lprtlfl  )k 

for  lj»ll  i  <«  it  j**)  lprtcharl  0 »  •  ')» 

lprtstrlhdr )» 

lprtcrl  )i 

lprtlfl  1 1 

lprtlfl  )» 

/*  Print  tha  linas  »/ 
fori j*0j  j  <  nlinasi  ) 

curlocatl linas >10 )» 

colrprtsl budgatl j ] , FOREGRNO .BACKGRND ) \ 
if  (pflag) 

for  lj»l»  j  <»  j**)  lprtcharl 0  >  ’  ’)> 

Iprtstrl  budgatl  j  1 1 1 
lprtcrl  )| 
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lprtlft  )) 
plines++t 

lines++t 


lines**) 
if  (pflag) 

lprtcrt  It 
lprtlft )) 
plinM^f) 

of • tch( curst  1]  1 1 


eloso: 

curlocatt  24,20  It 

colrprtst "  Proas  •  kay  to  continue 

FOREGRNO .BACKGRND ) I 


pousot  )» 


/*  CXoso  the  budgot  cursor  »/ 

oclossl curst  X  ]  1 1 

/»  Froo  tho  budget  array  */ 

for(i»0t  i  <  50 1  i**)  f root budget! i 1 )| 

if  I  pflag)  lprtffl  )l 

sotsenodt EIGHTY  1 1 

border ( BACKGRND I v 


clscolort FOREGRNO. BACKGRND  1 1 


I  |V*»A  «».  j». 


.  *>  |*  it.  »(.  *f 


iL  a*,  it, 


wwnnimmwinruniww 


WWW 


prograa  aodula  gatsua 
varsion  1.0 

author*:  Richard  N.  Hnnrfcsan 


Hichaal  F  Rail 


Prograa  last  aodifiad  20  January  1986 


Purposa:  Displays  budgat  vs  axpansa  total 
to  data. 


Othar  aodulas  cal lad:  SELSUM,  SELSUHA 


Cal lad  by:  T08U0EXP 


Filas  us ad:  NONE 

Filas  craatad  :  bud ,graf 1 


Local  variablas:  cfno.dta,  bud, axp 

lina-80- ,  •budgat-100- ,  *calloc< ) I 
i*  3>  P9»  pflag,  plinas,  linas,  nlinast 


gatsual  saloct,  hdr,  curs) 
char  asalact, 


short  curs!  U321t 


cfnotSl, 
dtaflOl, 
budt 15 1 , 


. .  -/v:-/-  -v--' 


expl  15]  l 


char  linelBO],  abudgatt  100 ],  acalloc!  )t 

int  i>  j ,  pg>  pflag,  gflag,  plines,  lines,  nlirtest 


nlines  ■  Ot 

setscmodl EIGHTY ) \ 
clscolort  FOREGRNO , BACKGRNO ) j 
bordar ( BACKGRNO )  I 
curlocat ( 12 ,23 )  t 

forti*0t  i  <  50 1  iff)  budget! il  =  calloct 1 ,1 )  t 

colrprtsl  "Do  you  want  printed  output  IY  '4  )?", FOREGRNO , BACKGRNO ) t 
if  t gatyesnot 1 ) ) 

/»  Initialize  the  print  variables  */ 
pflag  *  It 

for  t  j*l»  j  <*  6 1  jff)  lprtlft  1 1 

for  tj«l)  j  <«  1)  j**)  lprtchar(0»  •  *)» 

lprtstr( hdr I i 

lprtcr(  )t 

lprtlft  )| 

lprtlft  )j 

else  pflag  *  Ot 
plinas  *  0} 

/*  Initialize  the  graph  variable  a/ 
curlocat!  14,23 )  l 

colrprtsl "Graph  Output  ( Y/N  )?" , FOREGRNO , BACKGRNO  )  * 
if  ( gatyasno!  1 ) )  gflag  *  It 
alsa  gflag  *  0( 

clscolort  FOREGRNO , BACKGRNO ) l 
/»  Process  the  ORACLE  request  */ 

/»  Open  a  cursor  for  the  budget  */ 


if  (oopeni curst  1 ], curst OJ ,-1,-1 ,-1,-1 ,-l) ) 


errrpti  cur*  1 0  ]  ,4 ) t 


goto  closet 


/»  Retrieve  tha  first  racord  */ 


/»  SELECT  SUM! LABOR )+SUM( MATERIAL )+SUM( OTHER  ) 
FROM  BUOSET  WHERE  COST_FUN_NO  <  '9200'  */ 


if  ( osql3( curst  1 ] >  select,  -1)  || 

odaf in( curs-X- ,  X,  C.3,  sizaof  bud,  S,  -1, -1,-1, -1,-1, -X, -1 )  II 
oexaci curst  11)  II 
ofetchicurstll ) ) 


if ( curs! 1  ]( 0 1==4 ) 


cur locatl 12 ,30 1 1 

colrprtsi "No  Records  Salactad" , FOREGRND ,BACKGRND ) | 
goto  close i 


arrrptl  curst  0 1 ,4 )  t 
goto  closat 


/»  Open  a  cursor  for  tha  expanse  */ 

/*  SELECT  SUM!  LABOR  l+SUMI MATERIAL  l+SUMI OTHER),  DT 
FROM  EXPENSE 

WHERE  COST_FUN_NO  =  :C0ST_FUN_N0  GROUP  BY  DT»/ 
if  ( oopenl curst  2  3 ,curst  0 1,-1, -1,-1, -1,-1)  II 
osql3(curs(2l,  salsuma,  -1)  || 
odaf ini  curst  2 1 ,  1,  texp,  sizaof  axp, 

5,  -1,-1 »-l ,-l ,-1,-1 ,-l t  II 
odafin(curst2l,  2,  Jdta,  sizaof  dta, 


5,  -1, -1,-1, -1,-1, -1,-1)  ) 


errrpt ( cur* 1 0 ] ,4 ) > 
goto  close) 


/*  Ratriava  tha  remaining  record*  */ 
lines  *  2} 
headlhdr )) 

while  ( curst  1  It  0]  !•  4) 

nlines  3  0) 
strcpydina,  bud)) 

if  ( strcmpl line,  "  " )  !3  0) 

free! budgettnlines ] ) ) 

j  3  strlenl line ) ) 

budge t t nl ines ]  3  calloct j+1 ,1 ) ) 

strcpyt budget tnlines 1,  line)) 

if  (gflag  33  1)  writefbt  line)) 

nlin*s++» 


/*  Retrieve  the  first  expense  record  »/ 
if  (oexec(curst2l)  II 
ofetcht  curst  2D) 

if ( curst 2 ][ 0 13=4 )  i 

else 


errrpt <  curst  0 1 ,4 ) ) 
goto  close) 
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/*  Check  for  •  full  screen  */ 
else  if  (lines  ♦  nlines  >  23) 

curlocatl  24>21H 

colrprtsl "Press  any  key  to  continue  or  Q  to  quit 
FOREGRND .BACKGRND ) » 
getkeyOjli 
lines  »  2t 

if  l(j  **  *q' )  II  (j  'O'  ) )  goto  done} 
clscolort FOREGRND  >BACKGRND ) \ 
heacK  hdr )  i 

/»  Check  for  a  full  page  */ 

if  (pflag  it  Uplines  ♦  nlines)  >51)) 

plines  «  0) 

i  a  (80  -  str lent hdr ) )/Zi 
lprtff ( )» 

for  I  j=lj  j  <a  6  j  j++)  lprtlfl  )j 

for  (j=li  j  <=  it  j+-H  IprtcharlO,  *  '  )» 

lprtstrlhdr  )t 

lprtcr(  )  i 

lprtlfl  )  i 

lprtlfl  )» 


/»  Print  the  lines  */ 
for(j=0»  j  <  nlines i  j**  I 

curlocatl lines  >10 ) i 

colrprtsl budget! j 1 , FOREGRND, BACKGRND  ) i 
if  (pflag) 


for  (j=l*  j  <=  9i  j++)  IprtcharlO,  '  ')> 
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lprtstr! budget!  j 1 1 i 
lprtcr!  )» 
lprtlf!  ) } 
plines+«l 

lines**! 

lines**! 
if  tpflag) 

lprtcr!  )! 
lprtlf  I  )  t 
plines**! 

if  (gflag  »»  1) 

i  «  executs2 (  "d:  lyons6 .  exe"  >  "lyons6"  )  ! 

ofetch! curst  1 ] ) ! 

close : 

curlocat! 24 ,20  )  > 

colrprtsl"  Press  a  Key  to  continue 

FOREGRND  >BACKGRND ) ! 

pause! )| 

done: 

/*  Close  the  budget  cursor  »/ 
oclose! curst  1 1 ) » 

/*  Free  the  budget  array  */ 
for(i=0>  i  <  50  >  i**l  free!  budget!  i  ])  ! 
if  (pflag)  lprtff!  )( 


setsetnod!  EIGHTY )  i 


border  I BACKGRND )  I 


clscolor( FOREGRNO > BACKGRND ) \ 


3.  ORCAINP 

static  char  saifunl 1»  "SELECT  COST_CL_NO,  OT LABOR* ST LABOR , 

MATERIAL,  OTHER 

FROM  BUDGET  WHERE  COST_FUN_NO  =  "  > 

static  char  salsum[]=  "SELECT  SUM( OTLABOR 1+SUMI ST LABOR )♦ 

SUM! MATERIAL  J+SUMI OTHER ) 

FROM  BUDGET  "  J 

static  char  salsumat1=  "SELECT  SUMl  STLABOR  l+SUMI  OTLABOR)* 

SUM! MATERIAL  )+SUM(  OTHER )  ,DT 
FROM  EXPENSE  GROUP  BY  DT  "  \ 

static  char  salclst 1=  "SELECT  SUM(  OTLABOR  l+SUMI  ST  LABOR  )♦ 

SUM( MATERIAL HSUMI OTHER ) 

FROM  BUDGET  WHERE  COST_CL_NO  ■  “  > 

static  char  salfunat  1*  "SELECT  SUM( OTLABOR l+SUMI ST LABOR)* 

SUM( MATERIAL  )+SUMI OTHER ) 

FROM  EXPENSE  WHERE  COST_FUN_NO  *  "  \ 

static  char  salclsaU*  "SELECT  SUM( OTLABOR  )  +SUMI ST  LABOR  )  * 

SUM( MATERIAL  J+SUMI OTHER ) 

FROM  EXPENSE  WHERE  COST_CL_NO  *  "  i 

static  char  seltotall  =  "SELECT  SUM( OTLABOR )*SUM< STLABOR )♦ 

SUMl MATERIAL ) +SUMI OTHER ) 

FROM  EXPENSE"  > 

static  char  sola -fun!  ]=  "SELECT  COST_FUN_NO ,  SUM  (OTLABOR)* 

SUMl STLABOR )*SUM( MATERIAL )*SUM( OTHER  ) 
FROM  EXPENSE  WHERE  OT  =  (SELECT  MAXI OT  I  FROM  EXPENSE  I 
AND  COST_FUN_NO  =  :cfno  GROUP  BY  COST_FUN_NO"  » 


static  char  salaclM*  "SELECT  COST_C L_NO ,  SUM!  OT LABOR ) + 


SUM( ST LABOR  )+SUM( MATERIAL  )+SUM( OTHER ) 

FROM  EXPENSE  WHERE  OT  ■  (SELECT  MAX(OT)  FROM  EXPENSE) 

AND  COST_CL_NO  =  :clrvo  GROUP  BY  COST_CL_NO"  \ 

static  char  sa lb fun I  ]=  "SELECT  COST_FUN_NO,  SUM( OT LABOR  )♦ 

SUM! ST LABOR )+SUM( MATERIAL  )+SUM( OTHER ) 

FROM  BUDGET  GROUP  BY  COST_FUN_NO"  i 

static  char  salbcltl=  "SELECT  COST_CL_NO,  SUMIOT LABOR )♦ 

SUM! ST LABOR  )+SUM( MATERIAL )+SUM( OTHER ) 

FROM  BUDGET  GROUP  BY  COST_CL_:  3"  ) 

static  char  salbcfclM*  "SELECT  COST_FUN_NO,  COST_CL_NO» 

OTLABOR+STLABOR+MATERIAL+OTHER 
FROM  BUDGET  WHERE  OT LABOR  !<  0  OR  ST LABOR  !=  0  OR 

MATERIAL  !>OOR  OTHER  !*  0"  t 

static  char  salacfclt  ]*  "SELECT  COST_FUN_NO,  COST_CL_NO» 

OTLABOR+STLABOR+MATERIAL+OTHER  from  expense 
WERE  OT  a  (SELECT  MAXIDT)  FROM  EXPENSE)  AND 
(OT LABOR  !»  0  OR  ST LABOR  !*  0  OR  MATERIAL  !*  0  OR  OTHER  !*  0) 

AND  COST_FUN_NO  *  :CFNO  AND  COST_CL_NO  =  :CLNO"  i 

static  char  salhourt ]  =  "SELECT  COST_FUN_NO,  COST_CL_NO, 

OTHOURS+STHOURS 
FROM  BUDGET  “  > 

static  char  sallabtl*  "SELECT  COST_FUN_NO,  COST_CL_NO, 

OT LABOR +ST LABOR 
FROM  BUDGET  "  i 

static  char  solmatlJs  "SELECT  COST_FUN_NO,  COST_CL_NO,  MATERIAL 

FROM  BUDGET  "  > 

static  char  salothM  =  "SELECT  COST_FUN_NO,  COST_CL_NO,  OTHER 

FROM  BUDGET  "  ) 

static  char  salehourl 1»  "SELECT  COST_FUN_NO,  COST_CL_NO» 
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«,*“  -»k  , 


.«4  _c*  ^4  k>|  Ajfl  j 


ij«|  *>4  -•*  , 


OT HOURS +ST HOURS 

FROM  EXPENSE  WHERE  OT  a  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  «  :CFNO  AND  COST_CL_NO  =  :CLNO  "  ) 


static  char  saXaXabt  1=  "SELECT  COST_FUN_NO,  COST_CL_NO, 

OTLABOR+STHOURS 

FROM  EXPENSE  WHERE  OT  >  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  ■  :CFNO  AND  COST_CL_NO  =  :CLNO  "  ) 


static  char  salaoatt 1»  "SELECT  COST_FUN_NO,  COST_CL_NO,  MATERIAL 

FROM  EXPENSE  WHERE  OT  ■  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  a  :CFNO  AND  COST_CL_NO  a  :CLNO  "  \ 


static  char  salaothMa  "SELECT  COST_FUN_NO,  COST_CL_NO,  OTHER 

FROM  EXPENSE  WHERE  OT  a  (SELECT  MAXIOT)  FROM  EXPENSE)  ANO 
COST_FUN_NO  a  jCFNO  AND  COST_CL_NO  a  :CLNO  «  i 


4.  BAR.  C 


/*  External  Calls:  Nona  »/ 
/*  */ 
XaiHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHI/ 


#include  "stdio.h" 

^include  "graphics. h" 

int  .stack  ■  60000) 

■ain( arge ,argv ) 
int  arge ) 
char  #argv<  ) ) 

/*  begin  main  */ 

FILE  ainfile,  ftoutfile,  »fopenl  )| 

/*  Declare  variables  »/ 
char  month! 3 1 >  filename! 30  ),  name!  4  1 l 

float  cost,  xl(  14 ) ,x2(  14) ,yl(  14 ) »x( 301 ) >  y(301),  *(301)) 
float  a( 301 ) ,  b<  14 1 ,  cl 301),  d<301)) 
int  cf,  flag,  i,  count,  nxdiv,  nydiv,  npts) 
long  gettimel  )) 

float  budget,  budgetl,  budgetZ,  zll  13 ) ,  w,  wl) 

•P« 

struct  strlab  /*  begin  Needed  for  string  labels.  */ 

int  flag) 

char  sl(lO)) 

char  sZ(lO)) 

char  s3( 10  1 ) 

char  s4( 10  1 ) 

char  s5( 10 )  > 

char  s6( 10  ) ) 

char  s7H0)) 

char  sS( 10  ) ) 

char  s9(10l) 
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char  *10(10)1 
char  slllion 
char  *12(10)1 
char  sl3(10)t 
char  sl4< 10  )  ! 

»  /*  and  Haadad  for  string  labals.  »/ 

•if  CIO  /»  Soma  CI86  compilers  won't  accept  the  simpler  fora.  */ 
statio  struct  strlab  xstring! 
xstring. f legal! 
strepyl xstring. si,"  310112")! 
strepyl xstring. s2 ,"  310113")! 
strcpy( xstring. *3,”  310114“)! 
strepyl xs tr ing .  s4 , "  310115")! 
strepyl xstring. s5,"  310116")! 
strcpy(xstring.s6,"  310117")! 
strepyl xstring. s7,"  310118")! 
strepyl xstring. s8,"  310114")! 
strepyl xstring. s9,"  310112“)! 
strepyl xstring. *10,"  310113")! 

•else 

static  struct  strlab  xstring  *  /*  begin  */ 

1,"","  310112","  310113","  310114","  310115" 

,  "  310116","  310117","  310118","  310119","”  ! 

•and if 

strepyl f ilenama,”graf“ ) t 

if  1 1  inf ila  *  fopanl filename, "r"  ) )  »  NULL) 

printfl "Sorry,  cannot  open  Zs">  filename)! 
return! 

fori i*0ii<*9ii++ ) 

at i  ]-0! 
bt i  1=0! 
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ot i 1*0 t 
dt i ] =0 » 


count  *  Ot 
i 

while  ((flag  =>  fscanf ( inf ila,  "ZdZfZf",  C.7,»cost .ibudgetl ) )  !=  EOF) 

/*  bag in  Mhila  */ 

ai  count]  ■  cost/1000 1  /*  cost  */ 

clcouitl  ■  budgatl/lOOOt  /*  cost  function  budgat  */ 

d( count]  =  (budgatl/cost  )/1000t  /*  cost  function  budgat  */ 


count**) 

/* 

increment  count 

*/ 

/* 

and  while 

*/ 

fclosa( inf ila  )t 

/*  Thasa  ara  tha  strings.  */ 

settimel )  /*  Start  timing  of  run.  */ 

bgnplotl 1, 'g' ,"lyons8. tKf"  )t  /*  Initialize  plot.  Graphic  moda  */ 
startplotl  )t 

/*  Change  to  simplex  Greek  and  math  »/ 
font! 4, "simplex. fnt" . '  310' ."duplex. fnt" , '  311 ' ."complex. fnt" 

312 ' ."simgrma. fnt" . '  313*  )t 

xlab( Jxstring )  t  /*  Turn  on  string  labels  */ 

cross(0)t 
color! 0 ) t 

physor(0.0, 0.0)t  /PRESET  DEFAULT  ORIGIN*/ 

paga( 9.0.6.855 ) t 

area2d(7.5>6.5)t 

nxdiv=8t  /*  Dasired  9  of  x-axis  divisions  */ 

nydiv=6t  /*  Desired  9  of  y-axis  divisions  */ 

nptsa8t  /*  Number  of  points  in  x  and  y  vectors  */ 

for<  i=0ti<countti++  )  bt  i  ]=(  float )(  i*l  )t 

color*  6 )  t 


grid*  2  )  t 


/*  Put  fine  dotted  grid  on  plot  */ 


/»  FUm  used:  GRAF1,  BUD 


/*  External  Call*:  Nona 


Hinclude  "stdio.h" 


•include  “graphics. h" 


int  .stack  *  60000) 


aa in( argc ,argv ) 
int  arget 


char  *argv<  ) t 


/*  begin  min  */ 


FILE  ainfile,  *outfile,  *fopen< )j 


/*  Daclar*  variables  */ 
char  eonth(9),  filename! 30 ) ,  name(4)l 

Float  cost,  xl(  14 ) ,x2t  14 l ,yl(  14) ,xt 301 ) »  y!301),  z(301)| 
float  a(301),  b(14),  c(301J,  d(301)» 

int  counts, cf,  flag,  i,  count,  nxdiv,  nydiv,  npts,  npt t 
long  gettime!  )l 

float  noMbudgat, budget,  budgatl,  budget 2 ,  zl(13),  w,  wit 


struct  labstra 
int  flag) 
char  sl(lOI) 


char  s2(10)i 


char  s3( 10  ) ) 


char  s4(10H 


char  s5(10)t 


char  *6(10)1 


char  s7(  10  )  t 


char  *8(10  It 


/*  begin  Needed  for  string  labels.  »/ 


char  s9(10U 
char  slOllO)) 
char  sill  10 )» 
char  s!2( 10  )  > 
char  slSdOU 
char  sl4l 10  ) » 

»  /*  and  Naadad  for  string  labals.  »/ 

Rif  CIQ  /*  Soma  CI86  compilers  won't  accapt  tha  sinplar  fora.  */ 
statio  struct  labstr  astringt 
nstring. flag»l> 
strcpyl nstring. si f"  3100CT")j 
strcpy(nstring.s2>"  310NOV")* 
strcpyl nstr ing .  s3 1"  310DEC''i» 
strcpy(nstring.s4»"  310JAN")j 
strcpyl nstring. s5»"  310FEB"H 
strcpyl nstring. s6i"  310MAR" H 
strcpyl nstring. s7i"  310APR"  H 
strcpylnstring.s8*"  310MAY" )j 
strcpyl nstring. s9>"  310JUN" )) 
strcpyC nstring. slO > "  310JUL")) 
strcpy( nstring. slli"  310AUG")» 
strcpyl nstring. sl2>"  310SEP"  )» 
strcpy( nstring. sl3i"  3100CT" )j 
strcpyl nstring. sl4i"  310NOV")i 
Raisa 

static  struct  labstra  nstring  *  /*  bag in  »/ 

l,""i"  3100CT" i"  310NOV" i"  310DEC",”  310JAN"»  "  310FEB 
310MAR" i"  310APR" i"  310MAY","  310JUN","  310JUL" 
i"  510 AUG"  i"  310SEP"  i » 

Randif 

strcpyl f ilanamai"bud" H 

if  llinfila  »  fopanl filanama>"r" ) I  =■  NULL) 


printf  I  "Sorry »  cannot  open  Xs",  filename  It 


return » 


for< i*0»i<*l»i** ) 

x(ilzOt 
yt i 1=0  ) 
ztilzO) 


•  pa 

flag  »  fscanfl infile,  "/'f’SJbudgetM 
newbudget  =■  I budget  )/1000 1  /*  budget  */ 

f close! inf ila ) t 

w»0» 

fori izl)i<z13)i** I 


yt  i  ]■( newbudget/ 12  )*w> 
w=( newbudget/12  )+w> 


strcpyl f ilename,"graf 1" ) | 
if  1 1  inf  ila  z  fopenl  f  ilenama,"r“  ))  «  NULL) 

printfl  "Sorry ,  camot  open  filename  )» 

return) 


wl»0» 
count  *  1> 

while  1 1  flag  *  fscanfl  inf ile,  "Zf/Ca",*co»t,4month) )  ! 

ztcount]  *  I cost*wl J/1000)  /*  cost  */ 

wl=(  cost  )*wl  ) 

count**)  /»  increment  count  */ 

/*  end  while  */ 


*  EOF) 
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f close! inf ile )  t 


/*  begin  full  page  line  plot  by  itself  */ 

settime!  H  /*  Start  timing  of  ixrt.  */ 

bgnplot! 1, 'g' ,"aplot . tkf" ) t  /*  Initialize  plot.  Graphic  mode  */ 

startplotlOH 

/*  Change  to  simplex  Greek  and  math  */ 
font(4, "simplex. frit",*  3101  ."duplex. fnt",1  311' 

."complex. fnt",'  312* ."simgrma.fnt",*  313*  Ik 
xlab! tnstring ) i  /a  Turn  on  string  labels  */ 
cross!  OH 
color!  0 )  > 

physor! 0.0,0. OH  /"RESET  DEFAULT  ORIGIN*/ 

page! 9.0,6.855 H 
area 2d! 7.5,6. 0  H 

box!  H  /*  Draw  a  box  aroind  the  plot  */ 

grid! 2 H  /*  Put  fine  dotted  grid  on  plot  */ 

fntchgl '  310' ) i  /*  Changes  fonts  for  the  axes  */ 
for! i=lli<13ti++ ) 

/*  budget  line  */ 
xt  i  Is!  float )(  i+1 )  t 

for!  i*lti<scountli++ ) 

/*  budget  line  */ 
xll  i  1=1  float )(  i+1 1* 

nxdiv=12t  /*  Desired  #  of  x-axis  divisions  */ 
nydiv=5t  /*  Oesired  #  of  divisions  on  linear  axis  */ 

npts  =  12  > 

graf ( "" ,0 .  ,1. ,12. ."/-l . Of " ,0 . ,1. ,10. It 

nstring.flag=0t  /*  Turn  off  string  label  option  */ 


pVJRTPSlIftiWinjJnWSVJrW  WirWPViniFW  FUJI  KKHJnwufTiw  jm  »n»nimwT«r.Jvr  wi  V’.wvi  mr  mn, v.  hi  «w-  -.  ’  hiiv  :vj»wi  m  t-»  jr 


xlab! Instring ) )  /»  after  axes  have  been  drawn.  */ 
color! 14 ) t 

xnenel "  310End  of  Month" ) )  /»  Make  labels  »/ 

yname! "  310Millions"  )  ) 

heading! “  311Budget  vs  Expenses")) 

solid!  )) 

color! 10 )  i 

pltfnt! 9.5*  9.2,  "  312110",  .5,  0)| 

curve! x,y,npts ,0  ) )  /*  Draw  curve  with  no  symbols  */ 

chndsh!  ))  /*  Use  chain-dashed  line  for  second  curve  */ 

color!  12)) 

curve! xl,z,count,0))  /*  Plot  second  curve  */ 
endplotl  ))  /*  Terminate  second  plot  */ 

stopplot!  )) 

/*  end  main  */ 

6.  COMBO.  C 


/» 

program  module  Combo. c 

*/ 

/* 

version  1.0 

*/ 

/» 

authors:  Richard  N.  Woodman 

*/ 

/* 

Michael  F  Rail 

*/ 

/* 

*/ 

/» 

Program  last  modified  20  January 

1986 

*/ 

/* 

*/ 

/* 

This  program  was  produced  on  an  IBM  clone 

using 

»/ 

/* 

DOS  3.1.  Written  with  the  C  programming  language, 

*/ 

/* 

utilizing  the  GraphicC  utility  software. 

»/ 

/* 

*/ 

/» 

This  is  called  directly  from  DOS  after  the 

i  PROJ 

*/ 

/» 

system  has  been  processed.  This  module  produces  a 

*/ 

/* 

full  page  line  graph,  with  the  solid  line 

representing 

#/ 

/* 

the  budget  and  the  broken  line  representing  the 

#/ 

/* 

expenses,  by  the  month  Inset  in  the  upper 

left  hand 

*/ 
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/j<  its  kwvrv jl  _  t»."* 
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4/4 


UNCLASSIFIED 


F/G  5/1 


•» 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURIAU  Of  STANDARDS  1963  A 


m  n 


/»  — mr  In  •  ilngla  bar  graph*  rabaad  in  siaa  ttat  a/ 
/»  plats  tta  budget  far  aaah  east  esntar.  */ 
/»  a/ 
/»  Piles  used:  WPl,  SUS.  ORAP  a/ 
/a  a/ 
/»  Ixtsmal  Calls:  Nona  •/ 
/a  a/ 
/aaaaaaaaaaaaaaaassasaaaaaaaaaaaaaaaaaaaaaaaaasaaaaaaaaaaaaa/ 


Sinoluda  “stdio.h" 
Sinoluds  "graphics.  hM 

int  .steak  ■  400001 


a 


iin(argo>«rgvl 
int  arpsi 

*l  )i 


/»  bap  in  aain  a/ 


Fill  •  inf  11a  >  «outf  ila« 


ll 


vartablaa  V 

char  esntMS)*  filsnsasISO).  naaa<4)» 

fleet  bu. 7>naMbudpet.eeet>  ell 14)*k1I 14)» 

fleet  yll  14 1 *xl SOI ) •  ylJOl),  KHDi 

float  a<  SOI  1 1  b(  14 )  >  elMl),  d<  S01  It 

int  oeuntsicf*  flap.  1.  oount >  rmdiv,  nydiv.  nptst 

long  pa t tine (  ll 

fleet  eentar»oipn,buOiotlbiiOiitllbiiOpit«,«lllHn»»««li 


itruot  strlab  /*  begin 
flapi 
all  10)  i 
aCUOli 
•51 10 1 1 
•41 10)i 


far  string  labels.  •/ 
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: 


'A 


. .  I 


•har  iMU)i 
•har  a«<10)i 
•har  imilt 
•har  iMU)i 
•har  ihllli 
•har  alOUOit 
■har  sUIU)i 
•har  tUUDi 
•har  slSIMli 
•har  ilMUli 

»  /»  «n0  NaM  far  itrim  labala.  ■/ 

•if  CM  /«  ha  CXM  aa^ilar*  Wt  aaaapt  tha  liahr  fm.  •/ 
atatia  itnat  strlah  Katrinai 
■aatrina.  flaa*l» 
atr*»ytnatrinaal."  110X11"  l» 

•trapy*  Katrina- at."  SIOUX"  >t 
atrapyi Katrina- aS."  110114"  It 
•trapy< Katrina. •»."  I 10110" I i 
■trapyiaatrina-aO."  11011*"  U 
a  trapyf  Katrina- •*."  110117"  It 
atrapyl Katrina. *7,"  S 10118" It 
itrayl  Matrina-aO."  S 10 lit"  )  t 
atrapyl  Katrina,  a*."  S 1011*"  It 
atrapyl  Katrina,  a  10."  S10US"  >i 
aalaa 

•tatia  atruat  atriab  Katrina  ■  /»  kaain  V 

I.—,-  suur."  s ioi is","  unit",-  non*" 

.■  UNM*,"  siMir*,"  umr,"  siou*-,—  » 

OanOif 

atruat  lahatr  /m  Kaain  KaaKa*  far  atrina  lahaia.  •/ 

int  flaai 

«har  al-10-t 

•har  aX-10-t 

Ptar  aS-10-t 
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ahar 

ahar  U-W-% 
ahar 

ahar  «r- M-i 
ahar  aft-u-i 
ahar  at-X*-i 
altar  aX*-xa-» 
ahar  aU-M-t 
altar  1U-U-1 
ahar  alS-Lt-i 
ahar  aX*-X*-t 

»  /»  aval  Maadad  far  itrini  lahala.  a/ 

•If  CXV  /*  Saaa  CJM  Mtaitan  Man' I  aaaapt  Iha  ilatlar  fan*.  »/ 

alalia  a  leva  I  labatr  aatrinai 

aatrina.flaaPl* 

atranytaatrlnp-al."  J1P0CT"  1 1 
atrapylaatrlna-al."  IUNOV-Ii 
atrapyfaatrlna-aJ."  S1MK")» 
atrapylaatrinp-a*."  UMT)i 
atrapy! aatrlnp.  a*."  JMfB’lt 
atrapyiaatrlna.aa."  SiaMirii 
atrapy!antrtna.a7»"  IlMITli 
atrapyiaatrina.a*."  JlBhAT"  u 
atrapytaatrlny.  at,"  UUtrii 
alrapyiaalrina.aX#."  SiaJUL”)» 
atraayt  aalrina- all  i"  SiaMiT'n 
atrapyiaalrina.au."  liaatr* )i 
atrapytaalrina.all."  J1POCT- u 
a  trappy!  aa  Irina,  all."  J1PNW*  it 
•aXaa 

alalia  atraat  lahatr  aatrlna  ■  /»  haain  V 

i.""."  naocT","  simotr."  iiMtC","  iiojph- 
narw" .*  iiawr,"  xiaipa-,-  uaar 
sxajtar."  ixajut"."  iiaaur-,-  iipatr-,"-  » 


,f 


atrapyl  It 

if  < ( Inf  1  La  ■  4««imira,vn  >•  NULL) 

/»  Papin  if  •/ 

printfl  "Sarry.  oarmat  opart  Xa".  filanaaalt 
ra  turm 

/»  anP  if  a/ 

f(r<irfll<*l|iM| 

x(  i  1*0 1 

yliMl 

tUMi 

flap  ■  faaanfl  inf ila,  "Xf",apu*at  It 
naMpuPgat  ■  'PuPpat >/1000t  /»  kup^t  a/ 

falaaal  inf  ila  I t 

•ifl 

faHi>lti<USii««l 

yl  i  !■<  noMPuPpat/U  )**•» 
o»l  naMPuppot/11  )«hi 

i 

atrapyl  f  ilanan."praf  i"  I » 
if  I 1  inf  ila  ■  fopanl  f  ilanaaa>*V"  1 1  NULL) 
r»  Papin  if  «/ 

printfl  "Parry »  aamat  apan  Za",  f  ilanaaa  1 t 
ratumi 

/•  anP  if  •/ 

Mi  apt 

aaun*  ■  it 

•Ptiia  1 1  flap  a  faaanfl  inf  ila.  "XfXa"  ,toaat.Paantt>l  I  fa  (Of  I 
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At  bapin  iMb  a/ 

afaavtt)  ■  (aaat«ull/10Mi  At  «m<  a/ 

MirtMi  At  Inaraaant  muH  a/ 

At  ana  Mhila  ■/ 

falaaat  inf  i  la  >  i 

•trapyt  «ll— ,W>t 
if  1 1  inf  1  la  ■  f  apart  f  llww  .V 1 1  ■>  NULL ) 

At  bapin  if  a/ 

printft-Sarry,  amt  apan  *a",  fllanaaalt 
raturm 
At  m nri  if  a/ 


Ml  *01 

MWtl  •  •> 

Mhila  1 1  flap  ■  faaanft  inf  1  la.  "XfXfXf  .Saantar  ,lbu^.«a»pnH  !■  (Of ) 
At  bap  in  Mhila  a/ 

Maatatta)  a  fbupal/lSMi  At  aaat  a/ 

aaatoMi  /a  Inaraant  aaat  a/ 

/a  ana  Mhila  a/ 

falaaat  infilati 

MttiaM  It  /a  Start  tiainp  af  ran.  a/ 

bvalatll. ."aa^a.tkf"  li/a  Initialiaa  plat.  Sraphia  aada  a/ 
startpiatl  li 

/a  Chanpa  ta  aUplaN  bra*  ana  aath  a/ 

fantt  *."alaplaN.  fnt”,  ‘  US'  radian. fnt",  •  111' 

>»tapliM.tef,'  HI*  ."aiapraa.fnt".'  US*  »» 
xlabt  •Mstrinpli  /a  Turn  an  atrinp  labala  a/ 

araaaltli 

aalaris  it 

papata.S.S.atTSH 

ppahiftll.S,S.*t7Sli 
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l.O.S.f >» 


nN<iv«Mi  /»  Ossirad  •  of  x-axis  divisions  »/ 
nydiv-St  /•  Ossirsd  •  of  y-snls  divisions  s/ 

ns  to  "St  /•  Nuabar  sf  points  in  x  snd  y  vsstsro  •/ 

fsrll«0ti<"0il+*l  alilM float  )f  i«l )» 

sslsrlftM 

grldtlJt  /»  But  fins  dot tad  arid  an  slot  a/ 
•rs«lM,«.  ,i.  ,0.  ,"X-1.0f",0.  ,X.  .10.  >l 
ntrini.flarti  /•  Turn  off  string  Idbal  as t lan  a/ 
xlaMOxstring))  /»  aftsr  anas  hsvs  Soon  drowi.  m/ 
•alarlSIt 

iisissl  **  SltCsot  fvnot ion"  1 1  /»  labal  far  x-axis  «/ 
hssdlngl-  SUMMIT"  >t  /a  Titls  of  slot  •/ 

Shansi”  SlZMillions" ) i  /»  Ufeol  far  y-axls  a/ 

solorlt )» 

sitfntiit.s,  o.t,  -  mur,  .§,  on 
borlndivioiiiistsiili 
/»  full  pags  saoand  lino  slat  a/ 

/*  Chango  to  oiaslax  Pros*  and  asth  a/ 

fantlO.-siaplsM.fnfS*  110 1  ,"dt*lox.  fnt", '  Ill' 

illoaglsi.Oif  >'  IU' ."oiagrao. fnf , '  SIX ' ) » 
xlabt  Amt  ring  It 
srassiO  It 
•alar 1 0 1 > 

sNrsarl0.0t0.0li  /aOKSCT  Off  AULT  OKXCXM*/ 
sags)  t.  0*4.  S00  It 
orsatdlO.I.t.O  It 

Baa*  U  /•  Or  on  •  box  or  staid  ths  slat  •/ 

grUMOIt  /a  Out  fina  dot  tad  grid  an  slat  •/ 

«ntahg<  •  110*  M  /a  Chongoo  fonts  far  tho  wa  a/ 
fart i*lti<lStU«l 


/• 


Sudaot  */ 


299 


xl  1  !•(  float )( i*l)| 


fori  i»l  i  i<oomt  i  ) 


/»  budget  •/ 

xltilat  float  )l  !♦!)) 


twdiv*Ut  /»  Dm i rad  I  of  x-oxio  divloiano  »/ 

nydiv*f  i  /*  Dm! rad  •  of  divlslona  an  linoor  axis  */ 

ngts  •  12) 

graft  **-,0.  >1.  *12.  »"X-1.0f"»0.  >2.  .10. )| 

Mtring.  f  lagaOi 
xlabl tootring ) » 


oolorl 14 ) i 

wmmI”  SlOCnd  of  Month”))  /»  Make  labalo  */ 
ynaaal ”  SlOHllliona”)) 
oolorl  10)i 

ourvalx.y.rgta.O))  /»  Oran  eurva  with  no  ay^ola  »/ 


ohndohl  )i  /»  Uaa  ohaln  doohad  line  for  oaoond  eurva  »/ 
oolorl  1Z)| 


ourvalxl»o.oount.O)i/a  blot  oagond  ourvo  */ 
ondalotl  1 1  /»  Taroinata  oaoond  plot  »/ 

otogplotl  ))  /•  Cloaa  filos  and  quit  •/ 


/»  and  Min  »/ 


a 

TRIPBAR.  C 

/» 

pragrao  oodulo  TripOar.a 

*/ 

/» 

vara ion  1.0 

»/ 

/» 

authors i  Richard  N.  Moodaan 

*/ 

/» 

Miohaal  t  Roll 

•/ 

/» 

*/ 

/» 

Rragraa  loot  aodifiad  20  January  1404 

»/ 

/■ 

•/ 

300 


i 


1  1  • 


I  *«»  .'•>  • 


/»  This  progrsa  mss  produced  on  sn  IBM  cions  using 
/*  DOS  3.1.  Nr it tan  with  ths  C  progressing  language, 
/»  utilizing  ths  GrsphicC  utility  softwsrs. 


/*  This  is  csllsd  dirsetly  from  DOS  sf tsr  ths  PROJ  »/ 
/»  systss  hss  bssn  procssssd.  This  soduls  produess  s  */ 
/»  Trip Is  bsr  graph.  Ths  siddla  bsr  rsprsssnts  ths  budgst  */ 
/»  for  sseh  cost  eanter,  lsft  bsr  rsprsssnts  ths  expanses  */ 
/»  and  ths  right  bsr  rsprsssnts  ths  pareantags  of  ths  «/ 
/»  budgst  expended.  m/ 


/*  Piles  used:  GRAF 


/»  External  Calls:  Nona 


tinoluds  "stdio.h" 

« include  “ graphics. h" 


int  .stack  a  40000 i 


as ini arge,argv I 
int  argot 
char  sergvt  ) t 


/»  begin  sain  •/ 


FILE  ainfilat  “out file,  ftfopenl )t 


/»  Declare  variables  »/ 


char  eonthl  3  ) .  fils 


float  eoet,  xl<14),x2(14),yl(14),x<  J01),  ylSOU,  z(301M 
float  a(301l»  b(  14 ) ,  o(301l,  d(301)t 
int  of,  flag,  i,  oount,  nxdiv,  nydiv,  nptst 
long  gsttiaal  1 1 

float  budget,  budgetl,  budgets,  zlllS),  w,  wit 


i 

? 

t* 

I* 

f 

t 


V.  t  .r  r.  .».  r,  .  .  r,  -  .  s . 


struct  xlab  /»  begin  N— tied  for  string  labels.  */ 

int  flag) 

char  sit  10)) 

char  s2!10)) 

char  s3(10)| 

char  s4( 10 ) ) 

char  s5< 10 )» 

char  s6H0)) 

char  s7(  10)i 

char  s8H0)) 

char  s9(  10  H 

char  slOl 10) ) 

>  /»  and  Haadad  for  string  labels.  */ 

8if  CI4  /»  Soee  Cl 86  compilers  won't  accept  the  siapler  fore.  */ 

static  struct  xlab  xstring) 

xstring. f legal t 

strcpyl xstring. si,"  310112")) 

strcpyl xstring. s2,M  310113”)) 

strcpyl xstring. s3 >”  310114” ) ) 

strcpyl xstring. s4,"  310115”)) 

s trepy) xstring. s5,”  310116”)) 

strcpyl xstring. s6>"  310117”)) 

strepytxstring.s7,"  310118")) 

strcpyl xstring. s8>”  310119”)) 

strcpyl xstring. s9»"  310112")) 

strcpyl xstring. slO,"  310113”)) 

•else 

statio  struct  xlab  xstring  a  /a  begin  */ 

l,"","  310112","  310113","  310114","  310115" 

,"  310116","  310117"  ,"  310118","  310119",""  ) 

band if 


strcpyl f ilsnaea ,"graf" ) ) 
if  1 1  infile  ■  fopenlfile 


,"r" ) )  ■■  NULL) 


/»  begin  if  */ 

printf!  "Sorry,  cannot  opan  filanaaoU 

ratumi 

/»  and  if  »/ 

for( i*0>i<*9ji++> 

a(l)-0» 

btil-0> 

eiil-Ol 

dtil-O) 


oount  *  Oi 

Mhiia  ((flag  ■  fscanfC  infile,  "XdX  fj£f",  C.7,tbudgat,«eost) )  !■  EOF) 

/*  bag in  Mhiia  */ 

a  [count]  *  coat/1000 j  /»  cost  »/ 

e( court)  «  budget/1000)  /*  cost  function  budget  «/ 

dt  count]  a  ( cost/budget )/100)  /»  coat  function  X  of  budget  */ 

oount  /»  jnorawant  oount  »/ 

/»  and  tdtile  */ 


fcloaaf infila )  t 

/*  Thaaa  ara  tha  strings.  */ 

sattiaal )i  /»  Start  tiaing  of  run.  */ 

bgnplot(l>'g' ,"tripber.tkfu))/ft  Initialize  plot.  Braphic  aoda  */ 
/*  begin  full  page  bar  plot  */ 
startplotl  7 )  | 

/*  Change  to  a imp lax  Greek  and  Math  */ 
font(4»"siaplex.  fntM» '  510' , "duplex,  fnt",  •  511’ 

»"coaplax. fnt" . •  512 ' , "s leprae . fnt" , '  515* )» 
xlab(Cxstring))  /*  Turn  on  string  labels  s/ 

cross! 0 )» 


color!  0 )  t 


physort 0.0,0.0)|  /PRESET  DEFAULT  ORICIM»/ 
peget  9.0,6.855)1 
areaZdl  7.5*6.01) 

box!  )}  /»  Draw  a  box  around  tha  plot  */ 

nxdiv*24v  /*  Oasirad  8  of  x-axia  division*  »/ 

nydiv«10>  /»  Oasirad  8  of  y-axis  divisions  */ 

npts*8>  /*  Nudier  of  points  in  x  and  y  vac  tors  «/ 

fort  i«0|i<9»it* )  xllil-t  float )ti*l)| 
fort  i»0»i<9»i**)  xl i l«t float )(  !♦ . 75 ) » 
forti»0>i<9»U+)  x2lll»t float lti*l. 25 )| 

color! 6 ) i 

grid!2)|  /»  Put  fina  dot tad  grid  on  plot  V 
graft "",0. ,1. *9. ,”X-1.0f”,0. ,1. ,10. )» 
xstring.flagsOi  /»  Turn  off  string  labal  option  »/ 
xlabt  txstring )  t  /*  aftar  axas  hava  baan  drain.  */ 
color!  3  )i 

xnaaat “  312Cost  Function” )|  /»  Labal  for  x-axis  »/ 
haadingf"  311BU0CET” )  i  /*  Titla  of  plot  */ 
ynaaat"  312Millions" )»  /*  Labal  for  y-axis  */ 

color!  2  )  > 

pltfntt 7.5*  10.2,  "  310110”,  .5,  0)» 

berfnxdiv,xl,a,npts»2  )i 
bar!  nxdiv  ,x  ,c  ,npts  ,4 )  i 
barf  nxdiv ,x2 ,d,npts ,5 ) t 

andplott )t  /*  Tonsinats  first  plot  »/ 

stopplott )»  /*  Close  files  and  quit  */ 

/a  and  aain  */ 
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